packages feed

ghcjs-dom-jsffi 0.4.1.1 → 0.5.0.0

raw patch · 516 files changed

+42301/−26901 lines, 516 files

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

Files

ghcjs-dom-jsffi.cabal view
@@ -1,5 +1,5 @@ name: ghcjs-dom-jsffi-version: 0.4.1.1+version: 0.5.0.0 cabal-version: >=1.24 build-type: Simple license: MIT
src/GHCJS/DOM/EventM.hs view
@@ -75,6 +75,8 @@ import           GHCJS.DOM.EventTargetClosures import           Data.Word (Word) import           Data.Foldable (forM_)+import           Data.Traversable (mapM)+import           Data.Coerce (coerce)  type EventM t e = ReaderT e IO @@ -121,7 +123,7 @@ eventTarget = event >>= Event.getTarget  target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t)-target = (fmap (unsafeCastGObject . toGObject)) <$> eventTarget+target = eventTarget >>= mapM (liftJSM . fromJSValUnchecked . coerce)  eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget) eventCurrentTarget = event >>= Event.getCurrentTarget
src/GHCJS/DOM/EventTargetClosures.hs view
@@ -3,6 +3,7 @@        (EventName(..), SaferEventListener(..), unsafeEventName, eventListenerNew, eventListenerNewSync, eventListenerNewAsync, eventListenerRelease) where  import Control.Applicative ((<$>))+import Control.Monad ((>=>)) import GHCJS.Types import GHCJS.Foreign.Callback.Internal import GHCJS.Foreign.Callback@@ -25,13 +26,13 @@ unsafeEventName = EventName  eventListenerNew :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNew callback = (EventListener . jsval) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject)+eventListenerNew callback = (EventListener . jsval) <$> syncCallback1 ContinueAsync (fromJSValUnchecked >=> callback)  eventListenerNewSync :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNewSync callback = (EventListener . jsval) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject)+eventListenerNewSync callback = (EventListener . jsval) <$> syncCallback1 ThrowWouldBlock (fromJSValUnchecked >=> callback)  eventListenerNewAsync :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNewAsync callback = (EventListener . jsval) <$> asyncCallback1 (callback . unsafeCastGObject . GObject)+eventListenerNewAsync callback = (EventListener . jsval) <$> asyncCallback1 (fromJSValUnchecked >=> callback)  eventListenerRelease :: EventListener -> IO () eventListenerRelease (EventListener ref) = releaseCallback (Callback ref)
src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ANGLEInstancedArrays        (js_drawArraysInstancedANGLE, drawArraysInstancedANGLE,         js_drawElementsInstancedANGLE, drawElementsInstancedANGLE,         js_vertexAttribDivisorANGLE, vertexAttribDivisorANGLE,-        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, ANGLEInstancedArrays,-        castToANGLEInstancedArrays, gTypeANGLEInstancedArrays)+        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE,+        ANGLEInstancedArrays(..), gTypeANGLEInstancedArrays)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)"
src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AbstractView-       (js_getDocument, getDocument, getDocumentUnchecked,-        js_getStyleMedia, getStyleMedia, getStyleMediaUnchecked,-        AbstractView, castToAbstractView, gTypeAbstractView)+       (js_getDocument, getDocument, getDocumentUnsafe,+        getDocumentUnchecked, js_getStyleMedia, getStyleMedia,+        getStyleMediaUnsafe, getStyleMediaUnchecked, AbstractView(..),+        gTypeAbstractView)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"document\"]" js_getDocument         :: AbstractView -> IO (Nullable Document)@@ -30,6 +47,14 @@   = liftIO (nullableToMaybe <$> (js_getDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> +getDocumentUnsafe ::+                  (MonadIO m, HasCallStack) => AbstractView -> m Document+getDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation>  getDocumentUnchecked :: (MonadIO m) => AbstractView -> m Document getDocumentUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getDocument (self)))@@ -42,6 +67,14 @@               (MonadIO m) => AbstractView -> m (Maybe StyleMedia) getStyleMedia self   = liftIO (nullableToMaybe <$> (js_getStyleMedia (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> +getStyleMediaUnsafe ::+                    (MonadIO m, HasCallStack) => AbstractView -> m StyleMedia+getStyleMediaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyleMedia (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation>  getStyleMediaUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -1,8 +1,13 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AbstractWorker-       (error, AbstractWorker, castToAbstractWorker, gTypeAbstractWorker)-       where+       (error, AbstractWorker(..), gTypeAbstractWorker) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -18,6 +23,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractWorker.onerror Mozilla AbstractWorker.onerror documentation>  error :: EventName AbstractWorker UIEvent
src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities        (js_getSourceId, getSourceId, js_getVolume, getVolume,-        getVolumeUnchecked, AllAudioCapabilities,-        castToAllAudioCapabilities, gTypeAllAudioCapabilities)+        getVolumeUnsafe, getVolumeUnchecked, AllAudioCapabilities(..),+        gTypeAllAudioCapabilities)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId         :: AllAudioCapabilities -> IO JSVal@@ -38,6 +54,15 @@ getVolume ::           (MonadIO m) => AllAudioCapabilities -> m (Maybe CapabilityRange) getVolume self = liftIO (nullableToMaybe <$> (js_getVolume (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> +getVolumeUnsafe ::+                (MonadIO m, HasCallStack) =>+                  AllAudioCapabilities -> m CapabilityRange+getVolumeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getVolume (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation>  getVolumeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities        (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, js_getFrameRate, getFrameRate,+        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,+        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,+        js_getFrameRate, getFrameRate, getFrameRateUnsafe,         getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,-        getAspectRatioUnchecked, js_getFacingMode, getFacingMode,-        AllVideoCapabilities, castToAllVideoCapabilities,-        gTypeAllVideoCapabilities)+        getAspectRatioUnsafe, getAspectRatioUnchecked, js_getFacingMode,+        getFacingMode, AllVideoCapabilities(..), gTypeAllVideoCapabilities)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"sourceType\"]"         js_getSourceType :: AllVideoCapabilities -> IO JSVal@@ -54,6 +70,15 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) =>+                 AllVideoCapabilities -> m CapabilityRange+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation>  getWidthUnchecked ::                   (MonadIO m) => AllVideoCapabilities -> m CapabilityRange getWidthUnchecked self@@ -68,6 +93,15 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) =>+                  AllVideoCapabilities -> m CapabilityRange+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation>  getHeightUnchecked ::                    (MonadIO m) => AllVideoCapabilities -> m CapabilityRange getHeightUnchecked self@@ -84,6 +118,15 @@   = liftIO (nullableToMaybe <$> (js_getFrameRate (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> +getFrameRateUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     AllVideoCapabilities -> m CapabilityRange+getFrameRateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFrameRate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation>  getFrameRateUnchecked ::                       (MonadIO m) => AllVideoCapabilities -> m CapabilityRange getFrameRateUnchecked self@@ -98,6 +141,15 @@                (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getAspectRatio self   = liftIO (nullableToMaybe <$> (js_getAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> +getAspectRatioUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       AllVideoCapabilities -> m CapabilityRange+getAspectRatioUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAspectRatio (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation>  getAspectRatioUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AnalyserNode        (js_getFloatFrequencyData, getFloatFrequencyData,         js_getByteFrequencyData, getByteFrequencyData,@@ -9,9 +14,10 @@         setMaxDecibels, js_getMaxDecibels, getMaxDecibels,         js_setSmoothingTimeConstant, setSmoothingTimeConstant,         js_getSmoothingTimeConstant, getSmoothingTimeConstant,-        AnalyserNode, castToAnalyserNode, gTypeAnalyserNode)+        AnalyserNode(..), gTypeAnalyserNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData ::
src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AnimationEvent        (js_getAnimationName, getAnimationName, js_getElapsedTime,-        getElapsedTime, AnimationEvent, castToAnimationEvent,-        gTypeAnimationEvent)+        getElapsedTime, AnimationEvent(..), gTypeAnimationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"animationName\"]"         js_getAnimationName :: AnimationEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ApplicationCache        (js_update, update, js_swapCache, swapCache, js_abort, abort,         pattern UNCACHED, pattern IDLE, pattern CHECKING,         pattern DOWNLOADING, pattern UPDATEREADY, pattern OBSOLETE,         js_getStatus, getStatus, checking, error, noUpdate, downloading,-        progress, updateReady, cached, obsolete, ApplicationCache,-        castToApplicationCache, gTypeApplicationCache)+        progress, updateReady, cached, obsolete, ApplicationCache(..),+        gTypeApplicationCache)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"update\"]()" js_update ::         ApplicationCache -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Attr-       (js_getName, getName, getNameUnchecked, js_getSpecified,-        getSpecified, js_setValue, setValue, js_getValue, getValue,-        getValueUnchecked, js_getOwnerElement, getOwnerElement,-        getOwnerElementUnchecked, js_getIsId, getIsId, Attr, castToAttr,-        gTypeAttr)+       (js_getName, getName, getNameUnsafe, getNameUnchecked,+        js_getSpecified, getSpecified, js_setValue, setValue, js_getValue,+        getValue, getValueUnsafe, getValueUnchecked, js_getOwnerElement,+        getOwnerElement, getOwnerElementUnsafe, getOwnerElementUnchecked,+        js_getIsId, getIsId, Attr(..), gTypeAttr)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         Attr -> IO (Nullable JSString)@@ -32,6 +48,14 @@ getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> +getNameUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result+getNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getName (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation>  getNameUnchecked ::                  (MonadIO m, FromJSString result) => Attr -> m result getNameUnchecked self@@ -62,6 +86,14 @@ getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +getValueUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) => Attr -> m result+getValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => Attr -> m result getValueUnchecked self@@ -74,6 +106,14 @@ getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) getOwnerElement self   = liftIO (nullableToMaybe <$> (js_getOwnerElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> +getOwnerElementUnsafe ::+                      (MonadIO m, HasCallStack) => Attr -> m Element+getOwnerElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOwnerElement (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation>  getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element
src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -1,12 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioBuffer        (js_getChannelData, getChannelData, getChannelData_,-        getChannelDataUnchecked, js_getLength, getLength, js_getDuration,-        getDuration, js_getSampleRate, getSampleRate, js_setGain, setGain,-        js_getGain, getGain, js_getNumberOfChannels, getNumberOfChannels,-        AudioBuffer, castToAudioBuffer, gTypeAudioBuffer)+        getChannelDataUnsafe, getChannelDataUnchecked, js_getLength,+        getLength, js_getDuration, getDuration, js_getSampleRate,+        getSampleRate, js_setGain, setGain, js_getGain, getGain,+        js_getNumberOfChannels, getNumberOfChannels, AudioBuffer(..),+        gTypeAudioBuffer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getChannelData\"]($2)"         js_getChannelData ::@@ -38,6 +55,14 @@ getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m () getChannelData_ self channelIndex   = liftIO (void (js_getChannelData (self) channelIndex))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> +getChannelDataUnsafe ::+                     (MonadIO m, HasCallStack) => AudioBuffer -> Word -> m Float32Array+getChannelDataUnsafe self channelIndex+  = liftIO+      ((nullableToMaybe <$> (js_getChannelData (self) channelIndex)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation>  getChannelDataUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioBufferCallback        (newAudioBufferCallback, newAudioBufferCallbackSync,         newAudioBufferCallbackAsync, AudioBufferCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallback ::
src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -1,19 +1,26 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioBufferSourceNode        (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteGrainOn,         noteGrainOn, js_noteOff, noteOff, pattern UNSCHEDULED_STATE,         pattern SCHEDULED_STATE, pattern PLAYING_STATE,         pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer,-        getBuffer, getBufferUnchecked, js_getPlaybackState,-        getPlaybackState, js_getGain, getGain, getGainUnchecked,-        js_getPlaybackRate, getPlaybackRate, getPlaybackRateUnchecked,+        getBuffer, getBufferUnsafe, getBufferUnchecked,+        js_getPlaybackState, getPlaybackState, js_getGain, getGain,+        getGainUnsafe, getGainUnchecked, js_getPlaybackRate,+        getPlaybackRate, getPlaybackRateUnsafe, getPlaybackRateUnchecked,         js_setLoop, setLoop, js_getLoop, getLoop, js_setLoopStart,         setLoopStart, js_getLoopStart, getLoopStart, js_setLoopEnd,         setLoopEnd, js_getLoopEnd, getLoopEnd, js_setLooping, setLooping,-        js_getLooping, getLooping, ended, AudioBufferSourceNode,-        castToAudioBufferSourceNode, gTypeAudioBufferSourceNode)+        js_getLooping, getLooping, ended, AudioBufferSourceNode(..),+        gTypeAudioBufferSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -29,6 +36,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)"         js_start ::@@ -96,6 +113,14 @@ getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +getBufferUnsafe ::+                (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation>  getBufferUnchecked ::                    (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer getBufferUnchecked self@@ -117,6 +142,14 @@ getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> +getGainUnsafe ::+              (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioParam+getGainUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGain (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation>  getGainUnchecked ::                  (MonadIO m) => AudioBufferSourceNode -> m AudioParam getGainUnchecked self@@ -131,6 +164,14 @@                 (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) getPlaybackRate self   = liftIO (nullableToMaybe <$> (js_getPlaybackRate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> +getPlaybackRateUnsafe ::+                      (MonadIO m, HasCallStack) => AudioBufferSourceNode -> m AudioParam+getPlaybackRateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPlaybackRate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation>  getPlaybackRateUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -1,52 +1,68 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioContext        (js_newAudioContext, newAudioContext, js_createBuffer,-        createBuffer, createBuffer_, createBufferUnchecked,-        js_createBufferFromArrayBuffer, createBufferFromArrayBuffer,-        createBufferFromArrayBuffer_, createBufferFromArrayBufferUnchecked,-        js_decodeAudioData, decodeAudioData, js_createBufferSource,-        createBufferSource, createBufferSource_,+        createBuffer, createBuffer_, createBufferUnsafe,+        createBufferUnchecked, js_createBufferFromArrayBuffer,+        createBufferFromArrayBuffer, createBufferFromArrayBuffer_,+        createBufferFromArrayBufferUnsafe,+        createBufferFromArrayBufferUnchecked, js_decodeAudioData,+        decodeAudioData, js_createBufferSource, createBufferSource,+        createBufferSource_, createBufferSourceUnsafe,         createBufferSourceUnchecked, js_createMediaElementSource,         createMediaElementSource, createMediaElementSource_,-        createMediaElementSourceUnchecked, js_createMediaStreamSource,-        createMediaStreamSource, createMediaStreamSource_,+        createMediaElementSourceUnsafe, createMediaElementSourceUnchecked,+        js_createMediaStreamSource, createMediaStreamSource,+        createMediaStreamSource_, createMediaStreamSourceUnsafe,         createMediaStreamSourceUnchecked, js_createMediaStreamDestination,         createMediaStreamDestination, createMediaStreamDestination_,+        createMediaStreamDestinationUnsafe,         createMediaStreamDestinationUnchecked, js_createGain, createGain,-        createGain_, createGainUnchecked, js_createDelay, createDelay,-        createDelay_, createDelayUnchecked, js_createBiquadFilter,-        createBiquadFilter, createBiquadFilter_,-        createBiquadFilterUnchecked, js_createWaveShaper, createWaveShaper,-        createWaveShaper_, createWaveShaperUnchecked, js_createPanner,-        createPanner, createPanner_, createPannerUnchecked,-        js_createConvolver, createConvolver, createConvolver_,-        createConvolverUnchecked, js_createDynamicsCompressor,-        createDynamicsCompressor, createDynamicsCompressor_,+        createGain_, createGainUnsafe, createGainUnchecked, js_createDelay,+        createDelay, createDelay_, createDelayUnsafe, createDelayUnchecked,+        js_createBiquadFilter, createBiquadFilter, createBiquadFilter_,+        createBiquadFilterUnsafe, createBiquadFilterUnchecked,+        js_createWaveShaper, createWaveShaper, createWaveShaper_,+        createWaveShaperUnsafe, createWaveShaperUnchecked, js_createPanner,+        createPanner, createPanner_, createPannerUnsafe,+        createPannerUnchecked, js_createConvolver, createConvolver,+        createConvolver_, createConvolverUnsafe, createConvolverUnchecked,+        js_createDynamicsCompressor, createDynamicsCompressor,+        createDynamicsCompressor_, createDynamicsCompressorUnsafe,         createDynamicsCompressorUnchecked, js_createAnalyser,-        createAnalyser, createAnalyser_, createAnalyserUnchecked,-        js_createScriptProcessor, createScriptProcessor,-        createScriptProcessor_, createScriptProcessorUnchecked,+        createAnalyser, createAnalyser_, createAnalyserUnsafe,+        createAnalyserUnchecked, js_createScriptProcessor,+        createScriptProcessor, createScriptProcessor_,+        createScriptProcessorUnsafe, createScriptProcessorUnchecked,         js_createOscillator, createOscillator, createOscillator_,-        createOscillatorUnchecked, js_createPeriodicWave,-        createPeriodicWave, createPeriodicWave_,-        createPeriodicWaveUnchecked, js_createChannelSplitter,-        createChannelSplitter, createChannelSplitter_,+        createOscillatorUnsafe, createOscillatorUnchecked,+        js_createPeriodicWave, createPeriodicWave, createPeriodicWave_,+        createPeriodicWaveUnsafe, createPeriodicWaveUnchecked,+        js_createChannelSplitter, createChannelSplitter,+        createChannelSplitter_, createChannelSplitterUnsafe,         createChannelSplitterUnchecked, js_createChannelMerger,         createChannelMerger, createChannelMerger_,-        createChannelMergerUnchecked, js_startRendering, startRendering,-        js_createGainNode, createGainNode, createGainNode_,+        createChannelMergerUnsafe, createChannelMergerUnchecked,+        js_startRendering, startRendering, js_createGainNode,+        createGainNode, createGainNode_, createGainNodeUnsafe,         createGainNodeUnchecked, js_createDelayNode, createDelayNode,-        createDelayNode_, createDelayNodeUnchecked,+        createDelayNode_, createDelayNodeUnsafe, createDelayNodeUnchecked,         js_createJavaScriptNode, createJavaScriptNode,-        createJavaScriptNode_, createJavaScriptNodeUnchecked,-        js_getDestination, getDestination, getDestinationUnchecked,-        js_getCurrentTime, getCurrentTime, js_getSampleRate, getSampleRate,-        js_getListener, getListener, getListenerUnchecked,+        createJavaScriptNode_, createJavaScriptNodeUnsafe,+        createJavaScriptNodeUnchecked, js_getDestination, getDestination,+        getDestinationUnsafe, getDestinationUnchecked, js_getCurrentTime,+        getCurrentTime, js_getSampleRate, getSampleRate, js_getListener,+        getListener, getListenerUnsafe, getListenerUnchecked,         js_getActiveSourceCount, getActiveSourceCount, complete,-        AudioContext, castToAudioContext, gTypeAudioContext,-        IsAudioContext, toAudioContext)+        AudioContext(..), gTypeAudioContext, IsAudioContext,+        toAudioContext)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -62,6 +78,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()"@@ -98,6 +124,18 @@             sampleRate))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferUnsafe ::+                   (MonadIO m, IsAudioContext self, HasCallStack) =>+                     self -> Word -> Word -> Float -> m AudioBuffer+createBufferUnsafe self numberOfChannels numberOfFrames sampleRate+  = liftIO+      ((nullableToMaybe <$>+          (js_createBuffer (toAudioContext self) numberOfChannels+             numberOfFrames+             sampleRate))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBufferUnchecked ::                       (MonadIO m, IsAudioContext self) =>                         self -> Word -> Word -> Float -> m AudioBuffer@@ -137,6 +175,19 @@             mixToMono))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferFromArrayBufferUnsafe ::+                                  (MonadIO m, IsAudioContext self, IsArrayBuffer buffer,+                                   HasCallStack) =>+                                    self -> Maybe buffer -> Bool -> m AudioBuffer+createBufferFromArrayBufferUnsafe self buffer mixToMono+  = liftIO+      ((nullableToMaybe <$>+          (js_createBufferFromArrayBuffer (toAudioContext self)+             (maybeToNullable (fmap toArrayBuffer buffer))+             mixToMono))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBufferFromArrayBufferUnchecked ::                                      (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>                                        self -> Maybe buffer -> Bool -> m AudioBuffer@@ -186,6 +237,16 @@   = liftIO (void (js_createBufferSource (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> +createBufferSourceUnsafe ::+                         (MonadIO m, IsAudioContext self, HasCallStack) =>+                           self -> m AudioBufferSourceNode+createBufferSourceUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_createBufferSource (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation>  createBufferSourceUnchecked ::                             (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode createBufferSourceUnchecked self@@ -223,6 +284,18 @@             (maybeToNullable (fmap toHTMLMediaElement mediaElement))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> +createMediaElementSourceUnsafe ::+                               (MonadIO m, IsAudioContext self, IsHTMLMediaElement mediaElement,+                                HasCallStack) =>+                                 self -> Maybe mediaElement -> m MediaElementAudioSourceNode+createMediaElementSourceUnsafe self mediaElement+  = liftIO+      ((nullableToMaybe <$>+          (js_createMediaElementSource (toAudioContext self)+             (maybeToNullable (fmap toHTMLMediaElement mediaElement))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation>  createMediaElementSourceUnchecked ::                                   (MonadIO m, IsAudioContext self,                                    IsHTMLMediaElement mediaElement) =>@@ -259,6 +332,17 @@             (maybeToNullable mediaStream)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> +createMediaStreamSourceUnsafe ::+                              (MonadIO m, IsAudioContext self, HasCallStack) =>+                                self -> Maybe MediaStream -> m MediaStreamAudioSourceNode+createMediaStreamSourceUnsafe self mediaStream+  = liftIO+      ((nullableToMaybe <$>+          (js_createMediaStreamSource (toAudioContext self)+             (maybeToNullable mediaStream)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation>  createMediaStreamSourceUnchecked ::                                  (MonadIO m, IsAudioContext self) =>                                    self -> Maybe MediaStream -> m MediaStreamAudioSourceNode@@ -290,6 +374,16 @@       (void (js_createMediaStreamDestination (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> +createMediaStreamDestinationUnsafe ::+                                   (MonadIO m, IsAudioContext self, HasCallStack) =>+                                     self -> m MediaStreamAudioDestinationNode+createMediaStreamDestinationUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_createMediaStreamDestination (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation>  createMediaStreamDestinationUnchecked ::                                       (MonadIO m, IsAudioContext self) =>                                         self -> m MediaStreamAudioDestinationNode@@ -314,6 +408,15 @@   = liftIO (void (js_createGain (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> +createGainUnsafe ::+                 (MonadIO m, IsAudioContext self, HasCallStack) =>+                   self -> m GainNode+createGainUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createGain (toAudioContext self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation>  createGainUnchecked ::                     (MonadIO m, IsAudioContext self) => self -> m GainNode createGainUnchecked self@@ -340,6 +443,16 @@   = liftIO (void (js_createDelay (toAudioContext self) maxDelayTime))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> +createDelayUnsafe ::+                  (MonadIO m, IsAudioContext self, HasCallStack) =>+                    self -> Double -> m DelayNode+createDelayUnsafe self maxDelayTime+  = liftIO+      ((nullableToMaybe <$>+          (js_createDelay (toAudioContext self) maxDelayTime))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation>  createDelayUnchecked ::                      (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode createDelayUnchecked self maxDelayTime@@ -366,6 +479,16 @@   = liftIO (void (js_createBiquadFilter (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> +createBiquadFilterUnsafe ::+                         (MonadIO m, IsAudioContext self, HasCallStack) =>+                           self -> m BiquadFilterNode+createBiquadFilterUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_createBiquadFilter (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation>  createBiquadFilterUnchecked ::                             (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode createBiquadFilterUnchecked self@@ -391,6 +514,15 @@   = liftIO (void (js_createWaveShaper (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> +createWaveShaperUnsafe ::+                       (MonadIO m, IsAudioContext self, HasCallStack) =>+                         self -> m WaveShaperNode+createWaveShaperUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation>  createWaveShaperUnchecked ::                           (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode createWaveShaperUnchecked self@@ -414,6 +546,15 @@   = liftIO (void (js_createPanner (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> +createPannerUnsafe ::+                   (MonadIO m, IsAudioContext self, HasCallStack) =>+                     self -> m PannerNode+createPannerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createPanner (toAudioContext self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation>  createPannerUnchecked ::                       (MonadIO m, IsAudioContext self) => self -> m PannerNode createPannerUnchecked self@@ -438,6 +579,15 @@   = liftIO (void (js_createConvolver (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> +createConvolverUnsafe ::+                      (MonadIO m, IsAudioContext self, HasCallStack) =>+                        self -> m ConvolverNode+createConvolverUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createConvolver (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation>  createConvolverUnchecked ::                          (MonadIO m, IsAudioContext self) => self -> m ConvolverNode createConvolverUnchecked self@@ -465,6 +615,16 @@   = liftIO (void (js_createDynamicsCompressor (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> +createDynamicsCompressorUnsafe ::+                               (MonadIO m, IsAudioContext self, HasCallStack) =>+                                 self -> m DynamicsCompressorNode+createDynamicsCompressorUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_createDynamicsCompressor (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation>  createDynamicsCompressorUnchecked ::                                   (MonadIO m, IsAudioContext self) =>                                     self -> m DynamicsCompressorNode@@ -489,6 +649,15 @@   = liftIO (void (js_createAnalyser (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> +createAnalyserUnsafe ::+                     (MonadIO m, IsAudioContext self, HasCallStack) =>+                       self -> m AnalyserNode+createAnalyserUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation>  createAnalyserUnchecked ::                         (MonadIO m, IsAudioContext self) => self -> m AnalyserNode createAnalyserUnchecked self@@ -527,6 +696,19 @@             numberOfOutputChannels))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> +createScriptProcessorUnsafe ::+                            (MonadIO m, IsAudioContext self, HasCallStack) =>+                              self -> Word -> Word -> Word -> m ScriptProcessorNode+createScriptProcessorUnsafe self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      ((nullableToMaybe <$>+          (js_createScriptProcessor (toAudioContext self) bufferSize+             numberOfInputChannels+             numberOfOutputChannels))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation>  createScriptProcessorUnchecked ::                                (MonadIO m, IsAudioContext self) =>                                  self -> Word -> Word -> Word -> m ScriptProcessorNode@@ -556,6 +738,15 @@   = liftIO (void (js_createOscillator (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> +createOscillatorUnsafe ::+                       (MonadIO m, IsAudioContext self, HasCallStack) =>+                         self -> m OscillatorNode+createOscillatorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createOscillator (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation>  createOscillatorUnchecked ::                           (MonadIO m, IsAudioContext self) => self -> m OscillatorNode createOscillatorUnchecked self@@ -594,6 +785,19 @@             (maybeToNullable (fmap toFloat32Array imag))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> +createPeriodicWaveUnsafe ::+                         (MonadIO m, IsAudioContext self, IsFloat32Array real,+                          IsFloat32Array imag, HasCallStack) =>+                           self -> Maybe real -> Maybe imag -> m PeriodicWave+createPeriodicWaveUnsafe self real imag+  = liftIO+      ((nullableToMaybe <$>+          (js_createPeriodicWave (toAudioContext self)+             (maybeToNullable (fmap toFloat32Array real))+             (maybeToNullable (fmap toFloat32Array imag))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation>  createPeriodicWaveUnchecked ::                             (MonadIO m, IsAudioContext self, IsFloat32Array real,                              IsFloat32Array imag) =>@@ -627,6 +831,16 @@          (js_createChannelSplitter (toAudioContext self) numberOfOutputs))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> +createChannelSplitterUnsafe ::+                            (MonadIO m, IsAudioContext self, HasCallStack) =>+                              self -> Word -> m ChannelSplitterNode+createChannelSplitterUnsafe self numberOfOutputs+  = liftIO+      ((nullableToMaybe <$>+          (js_createChannelSplitter (toAudioContext self) numberOfOutputs))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation>  createChannelSplitterUnchecked ::                                (MonadIO m, IsAudioContext self) =>                                  self -> Word -> m ChannelSplitterNode@@ -657,6 +871,16 @@          (js_createChannelMerger (toAudioContext self) numberOfInputs))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> +createChannelMergerUnsafe ::+                          (MonadIO m, IsAudioContext self, HasCallStack) =>+                            self -> Word -> m ChannelMergerNode+createChannelMergerUnsafe self numberOfInputs+  = liftIO+      ((nullableToMaybe <$>+          (js_createChannelMerger (toAudioContext self) numberOfInputs))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation>  createChannelMergerUnchecked ::                              (MonadIO m, IsAudioContext self) =>                                self -> Word -> m ChannelMergerNode@@ -689,6 +913,15 @@   = liftIO (void (js_createGainNode (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> +createGainNodeUnsafe ::+                     (MonadIO m, IsAudioContext self, HasCallStack) =>+                       self -> m GainNode+createGainNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createGainNode (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation>  createGainNodeUnchecked ::                         (MonadIO m, IsAudioContext self) => self -> m GainNode createGainNodeUnchecked self@@ -717,6 +950,16 @@       (void (js_createDelayNode (toAudioContext self) maxDelayTime))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> +createDelayNodeUnsafe ::+                      (MonadIO m, IsAudioContext self, HasCallStack) =>+                        self -> Double -> m DelayNode+createDelayNodeUnsafe self maxDelayTime+  = liftIO+      ((nullableToMaybe <$>+          (js_createDelayNode (toAudioContext self) maxDelayTime))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation>  createDelayNodeUnchecked ::                          (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode createDelayNodeUnchecked self maxDelayTime@@ -755,6 +998,19 @@             numberOfOutputChannels))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> +createJavaScriptNodeUnsafe ::+                           (MonadIO m, IsAudioContext self, HasCallStack) =>+                             self -> Word -> Word -> Word -> m ScriptProcessorNode+createJavaScriptNodeUnsafe self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      ((nullableToMaybe <$>+          (js_createJavaScriptNode (toAudioContext self) bufferSize+             numberOfInputChannels+             numberOfOutputChannels))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation>  createJavaScriptNodeUnchecked ::                               (MonadIO m, IsAudioContext self) =>                                 self -> Word -> Word -> Word -> m ScriptProcessorNode@@ -779,6 +1035,15 @@       (nullableToMaybe <$> (js_getDestination (toAudioContext self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> +getDestinationUnsafe ::+                     (MonadIO m, IsAudioContext self, HasCallStack) =>+                       self -> m AudioDestinationNode+getDestinationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDestination (toAudioContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation>  getDestinationUnchecked ::                         (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode getDestinationUnchecked self@@ -813,6 +1078,15 @@ getListener self   = liftIO       (nullableToMaybe <$> (js_getListener (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> +getListenerUnsafe ::+                  (MonadIO m, IsAudioContext self, HasCallStack) =>+                    self -> m AudioListener+getListenerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getListener (toAudioContext self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation>  getListenerUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioDestinationNode-       (js_getMaxChannelCount, getMaxChannelCount, AudioDestinationNode,-        castToAudioDestinationNode, gTypeAudioDestinationNode)+       (js_getMaxChannelCount, getMaxChannelCount,+        AudioDestinationNode(..), gTypeAudioDestinationNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"maxChannelCount\"]"         js_getMaxChannelCount :: AudioDestinationNode -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioListener        (js_setPosition, setPosition, js_setOrientation, setOrientation,         js_setVelocity, setVelocity, js_setDopplerFactor, setDopplerFactor,         js_getDopplerFactor, getDopplerFactor, js_setSpeedOfSound,         setSpeedOfSound, js_getSpeedOfSound, getSpeedOfSound,-        AudioListener, castToAudioListener, gTypeAudioListener)+        AudioListener(..), gTypeAudioListener)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"         js_setPosition :: AudioListener -> Float -> Float -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioNode        (js_connect, connect, js_connectParam, connectParam, js_disconnect,-        disconnect, js_getContext, getContext, getContextUnchecked,-        js_getNumberOfInputs, getNumberOfInputs, js_getNumberOfOutputs,-        getNumberOfOutputs, js_setChannelCount, setChannelCount,-        js_getChannelCount, getChannelCount, js_setChannelCountMode,-        setChannelCountMode, js_getChannelCountMode, getChannelCountMode,+        disconnect, js_getContext, getContext, getContextUnsafe,+        getContextUnchecked, js_getNumberOfInputs, getNumberOfInputs,+        js_getNumberOfOutputs, getNumberOfOutputs, js_setChannelCount,+        setChannelCount, js_getChannelCount, getChannelCount,+        js_setChannelCountMode, setChannelCountMode,+        js_getChannelCountMode, getChannelCountMode,         js_setChannelInterpretation, setChannelInterpretation,-        js_getChannelInterpretation, getChannelInterpretation, AudioNode,-        castToAudioNode, gTypeAudioNode, IsAudioNode, toAudioNode)+        js_getChannelInterpretation, getChannelInterpretation,+        AudioNode(..), gTypeAudioNode, IsAudioNode, toAudioNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)"         js_connect ::@@ -71,6 +88,15 @@            (MonadIO m, IsAudioNode self) => self -> m (Maybe AudioContext) getContext self   = liftIO (nullableToMaybe <$> (js_getContext (toAudioNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> +getContextUnsafe ::+                 (MonadIO m, IsAudioNode self, HasCallStack) =>+                   self -> m AudioContext+getContextUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContext (toAudioNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation>  getContextUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioParam        (js_setValueAtTime, setValueAtTime, js_linearRampToValueAtTime,         linearRampToValueAtTime, js_exponentialRampToValueAtTime,@@ -8,10 +13,11 @@         js_setTargetValueAtTime, setTargetValueAtTime, js_setValue,         setValue, js_getValue, getValue, js_getMinValue, getMinValue,         js_getMaxValue, getMaxValue, js_getDefaultValue, getDefaultValue,-        js_getName, getName, js_getUnits, getUnits, AudioParam,-        castToAudioParam, gTypeAudioParam)+        js_getName, getName, js_getUnits, getUnits, AudioParam(..),+        gTypeAudioParam)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)"         js_setValueAtTime :: AudioParam -> Float -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -1,11 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent        (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer,-        getInputBuffer, getInputBufferUnchecked, js_getOutputBuffer,-        getOutputBuffer, getOutputBufferUnchecked, AudioProcessingEvent,-        castToAudioProcessingEvent, gTypeAudioProcessingEvent)+        getInputBuffer, getInputBufferUnsafe, getInputBufferUnchecked,+        js_getOutputBuffer, getOutputBuffer, getOutputBufferUnsafe,+        getOutputBufferUnchecked, AudioProcessingEvent(..),+        gTypeAudioProcessingEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"playbackTime\"]"         js_getPlaybackTime :: AudioProcessingEvent -> IO Double@@ -40,6 +57,14 @@   = liftIO (nullableToMaybe <$> (js_getInputBuffer (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> +getInputBufferUnsafe ::+                     (MonadIO m, HasCallStack) => AudioProcessingEvent -> m AudioBuffer+getInputBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getInputBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation>  getInputBufferUnchecked ::                         (MonadIO m) => AudioProcessingEvent -> m AudioBuffer getInputBufferUnchecked self@@ -55,6 +80,14 @@                 (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getOutputBuffer self   = liftIO (nullableToMaybe <$> (js_getOutputBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> +getOutputBufferUnsafe ::+                      (MonadIO m, HasCallStack) => AudioProcessingEvent -> m AudioBuffer+getOutputBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOutputBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation>  getOutputBufferUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioStreamTrack-       (js_newAudioStreamTrack, newAudioStreamTrack, AudioStreamTrack,-        castToAudioStreamTrack, gTypeAudioStreamTrack)+       (js_newAudioStreamTrack, newAudioStreamTrack, AudioStreamTrack(..),+        gTypeAudioStreamTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack ::
src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioTrack        (js_getId, getId, js_setKind, setKind, js_getKind, getKind,         js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage,         getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled,-        js_getSourceBuffer, getSourceBuffer, getSourceBufferUnchecked,-        AudioTrack, castToAudioTrack, gTypeAudioTrack)+        js_getSourceBuffer, getSourceBuffer, getSourceBufferUnsafe,+        getSourceBufferUnchecked, AudioTrack(..), gTypeAudioTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"id\"]" js_getId ::         AudioTrack -> IO JSString@@ -93,6 +109,14 @@                 (MonadIO m) => AudioTrack -> m (Maybe SourceBuffer) getSourceBuffer self   = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> +getSourceBufferUnsafe ::+                      (MonadIO m, HasCallStack) => AudioTrack -> m SourceBuffer+getSourceBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSourceBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation>  getSourceBufferUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AudioTrackList-       (js_item, item, item_, itemUnchecked, js_getTrackById,-        getTrackById, getTrackById_, getTrackByIdUnchecked, js_getLength,-        getLength, change, addTrack, removeTrack, AudioTrackList,-        castToAudioTrackList, gTypeAudioTrackList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getTrackById,+        getTrackById, getTrackById_, getTrackByIdUnsafe,+        getTrackByIdUnchecked, js_getLength, getLength, change, addTrack,+        removeTrack, AudioTrackList(..), gTypeAudioTrackList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         AudioTrackList -> Word -> IO (Nullable AudioTrack)@@ -36,6 +52,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => AudioTrackList -> Word -> m AudioTrack+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation>  itemUnchecked ::               (MonadIO m) => AudioTrackList -> Word -> m AudioTrack itemUnchecked self index@@ -58,6 +82,15 @@               (MonadIO m, ToJSString id) => AudioTrackList -> id -> m () getTrackById_ self id   = liftIO (void (js_getTrackById (self) (toJSString id)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> +getTrackByIdUnsafe ::+                   (MonadIO m, ToJSString id, HasCallStack) =>+                     AudioTrackList -> id -> m AudioTrack+getTrackByIdUnsafe self id+  = liftIO+      ((nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation>  getTrackByIdUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.AutocompleteErrorEvent-       (js_getReason, getReason, AutocompleteErrorEvent,-        castToAutocompleteErrorEvent, gTypeAutocompleteErrorEvent)+       (js_getReason, getReason, AutocompleteErrorEvent(..),+        gTypeAutocompleteErrorEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::         AutocompleteErrorEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -1,8 +1,13 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BarProp-       (js_getVisible, getVisible, BarProp, castToBarProp, gTypeBarProp)-       where+       (js_getVisible, getVisible, BarProp(..), gTypeBarProp) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -18,6 +23,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"         js_getVisible :: BarProp -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BatteryManager        (js_getCharging, getCharging, js_getChargingTime, getChargingTime,         js_getDischargingTime, getDischargingTime, js_getLevel, getLevel,         chargingChange, chargingTimeChange, dischargingTimeChange,-        levelChange, BatteryManager, castToBatteryManager,-        gTypeBatteryManager)+        levelChange, BatteryManager(..), gTypeBatteryManager)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)"         js_getCharging :: BatteryManager -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs view
@@ -1,9 +1,14 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BeforeLoadEvent-       (js_getUrl, getUrl, BeforeLoadEvent, castToBeforeLoadEvent,-        gTypeBeforeLoadEvent)+       (js_getUrl, getUrl, BeforeLoadEvent(..), gTypeBeforeLoadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +24,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::         BeforeLoadEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BeforeUnloadEvent        (js_setReturnValue, setReturnValue, js_getReturnValue,-        getReturnValue, BeforeUnloadEvent, castToBeforeUnloadEvent,-        gTypeBeforeUnloadEvent)+        getReturnValue, BeforeUnloadEvent(..), gTypeBeforeUnloadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"returnValue\"] = $2;"         js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -1,15 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.BiquadFilterNode        (js_getFrequencyResponse, getFrequencyResponse, pattern LOWPASS,         pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF,         pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS,         js_setType, setType, js_getType, getType, js_getFrequency,-        getFrequency, getFrequencyUnchecked, js_getDetune, getDetune,-        getDetuneUnchecked, js_getQ, getQ, getQUnchecked, js_getGain,-        getGain, getGainUnchecked, BiquadFilterNode,-        castToBiquadFilterNode, gTypeBiquadFilterNode)+        getFrequency, getFrequencyUnsafe, getFrequencyUnchecked,+        js_getDetune, getDetune, getDetuneUnsafe, getDetuneUnchecked,+        js_getQ, getQ, getQUnsafe, getQUnchecked, js_getGain, getGain,+        getGainUnsafe, getGainUnchecked, BiquadFilterNode(..),+        gTypeBiquadFilterNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse@@ -81,6 +98,14 @@   = liftIO (nullableToMaybe <$> (js_getFrequency (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> +getFrequencyUnsafe ::+                   (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam+getFrequencyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFrequency (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation>  getFrequencyUnchecked ::                       (MonadIO m) => BiquadFilterNode -> m AudioParam getFrequencyUnchecked self@@ -95,6 +120,14 @@ getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> +getDetuneUnsafe ::+                (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam+getDetuneUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDetune (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation>  getDetuneUnchecked ::                    (MonadIO m) => BiquadFilterNode -> m AudioParam getDetuneUnchecked self@@ -108,6 +141,14 @@ getQ self = liftIO (nullableToMaybe <$> (js_getQ (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> +getQUnsafe ::+           (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam+getQUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getQ (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation>  getQUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam getQUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getQ (self)))@@ -118,6 +159,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation>  getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> +getGainUnsafe ::+              (MonadIO m, HasCallStack) => BiquadFilterNode -> m AudioParam+getGainUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGain (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation>  getGainUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam
src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Blob        (js_newBlob, newBlob, js_newBlob', newBlob', js_slice, slice,-        slice_, sliceUnchecked, js_getSize, getSize, js_getType, getType,-        Blob, castToBlob, gTypeBlob, IsBlob, toBlob)+        slice_, sliceUnsafe, sliceUnchecked, js_getSize, getSize,+        js_getType, getType, Blob(..), gTypeBlob, IsBlob, toBlob)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"Blob\"]()"         js_newBlob :: IO Blob@@ -63,6 +79,17 @@       (void          (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)             (toMaybeJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> +sliceUnsafe ::+            (MonadIO m, IsBlob self, ToJSString contentType, HasCallStack) =>+              self -> Int64 -> Int64 -> Maybe contentType -> m Blob+sliceUnsafe self start end contentType+  = liftIO+      ((nullableToMaybe <$>+          (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)+             (toMaybeJSString contentType)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation>  sliceUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSS        (js_supports2, supports2, supports2_, js_supports, supports,-        supports_, CSS, castToCSS, gTypeCSS)+        supports_, CSS(..), gTypeCSS)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 ::
src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule        (js_setEncoding, setEncoding, js_getEncoding, getEncoding,-        getEncodingUnchecked, CSSCharsetRule, castToCSSCharsetRule,+        getEncodingUnsafe, getEncodingUnchecked, CSSCharsetRule(..),         gTypeCSSCharsetRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"encoding\"] = $2;"         js_setEncoding :: CSSCharsetRule -> Nullable JSString -> IO ()@@ -39,6 +55,15 @@               CSSCharsetRule -> m (Maybe result) getEncoding self   = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +getEncodingUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    CSSCharsetRule -> m result+getEncodingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getEncoding (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation>  getEncodingUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent-       (js_getFontface, getFontface, getFontfaceUnchecked, js_getError,-        getError, getErrorUnchecked, CSSFontFaceLoadEvent,-        castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent)+       (js_getFontface, getFontface, getFontfaceUnsafe,+        getFontfaceUnchecked, js_getError, getError, getErrorUnsafe,+        getErrorUnchecked, CSSFontFaceLoadEvent(..),+        gTypeCSSFontFaceLoadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface         :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule)@@ -31,6 +48,15 @@   = liftIO (nullableToMaybe <$> (js_getFontface (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> +getFontfaceUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    CSSFontFaceLoadEvent -> m CSSFontFaceRule+getFontfaceUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFontface (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation>  getFontfaceUnchecked ::                      (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule getFontfaceUnchecked self@@ -43,6 +69,14 @@ getError ::          (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> +getErrorUnsafe ::+               (MonadIO m, HasCallStack) => CSSFontFaceLoadEvent -> m DOMError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation>  getErrorUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule-       (js_getStyle, getStyle, getStyleUnchecked, CSSFontFaceRule,-        castToCSSFontFaceRule, gTypeCSSFontFaceRule)+       (js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,+        CSSFontFaceRule(..), gTypeCSSFontFaceRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::         CSSFontFaceRule -> IO (Nullable CSSStyleDeclaration)@@ -27,6 +43,15 @@ getStyle ::          (MonadIO m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> +getStyleUnsafe ::+               (MonadIO m, HasCallStack) =>+                 CSSFontFaceRule -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation>  getStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSImportRule-       (js_getHref, getHref, getHrefUnchecked, js_getMedia, getMedia,-        getMediaUnchecked, js_getStyleSheet, getStyleSheet,-        getStyleSheetUnchecked, CSSImportRule, castToCSSImportRule,-        gTypeCSSImportRule)+       (js_getHref, getHref, getHrefUnsafe, getHrefUnchecked, js_getMedia,+        getMedia, getMediaUnsafe, getMediaUnchecked, js_getStyleSheet,+        getStyleSheet, getStyleSheetUnsafe, getStyleSheetUnchecked,+        CSSImportRule(..), gTypeCSSImportRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::         CSSImportRule -> IO (Nullable JSString)@@ -32,6 +48,15 @@ getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> +getHrefUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                CSSImportRule -> m result+getHrefUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getHref (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation>  getHrefUnchecked ::                  (MonadIO m, FromJSString result) => CSSImportRule -> m result getHrefUnchecked self@@ -45,6 +70,14 @@ getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> +getMediaUnsafe ::+               (MonadIO m, HasCallStack) => CSSImportRule -> m MediaList+getMediaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMedia (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation>  getMediaUnchecked :: (MonadIO m) => CSSImportRule -> m MediaList getMediaUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))@@ -57,6 +90,14 @@               (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet) getStyleSheet self   = liftIO (nullableToMaybe <$> (js_getStyleSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> +getStyleSheetUnsafe ::+                    (MonadIO m, HasCallStack) => CSSImportRule -> m CSSStyleSheet+getStyleSheetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyleSheet (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation>  getStyleSheetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule        (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle,-        getStyle, getStyleUnchecked, CSSKeyframeRule,-        castToCSSKeyframeRule, gTypeCSSKeyframeRule)+        getStyle, getStyleUnsafe, getStyleUnchecked, CSSKeyframeRule(..),+        gTypeCSSKeyframeRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"keyText\"] = $2;"         js_setKeyText :: CSSKeyframeRule -> JSString -> IO ()@@ -45,6 +61,15 @@ getStyle ::          (MonadIO m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> +getStyleUnsafe ::+               (MonadIO m, HasCallStack) =>+                 CSSKeyframeRule -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation>  getStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule        (js_insertRule, insertRule, js_appendRule, appendRule,         js_deleteRule, deleteRule, js_findRule, findRule, findRule_,-        findRuleUnchecked, js__get, _get, _get_, _getUnchecked, js_setName,-        setName, js_getName, getName, getNameUnchecked, js_getCssRules,-        getCssRules, getCssRulesUnchecked, CSSKeyframesRule,-        castToCSSKeyframesRule, gTypeCSSKeyframesRule)+        findRuleUnsafe, findRuleUnchecked, js__get, _get, _get_,+        _getUnsafe, _getUnchecked, js_setName, setName, js_getName,+        getName, getNameUnsafe, getNameUnchecked, js_getCssRules,+        getCssRules, getCssRulesUnsafe, getCssRulesUnchecked,+        CSSKeyframesRule(..), gTypeCSSKeyframesRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertRule\"]($2)"         js_insertRule :: CSSKeyframesRule -> JSString -> IO ()@@ -69,6 +86,15 @@   = liftIO (void (js_findRule (self) (toJSString key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRuleUnsafe ::+               (MonadIO m, ToJSString key, HasCallStack) =>+                 CSSKeyframesRule -> key -> m CSSKeyframeRule+findRuleUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_findRule (self) (toJSString key))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation>  findRuleUnchecked ::                   (MonadIO m, ToJSString key) =>                     CSSKeyframesRule -> key -> m CSSKeyframeRule@@ -92,6 +118,15 @@ _get_ self index = liftIO (void (js__get (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> +_getUnsafe ::+           (MonadIO m, HasCallStack) =>+             CSSKeyframesRule -> Word -> m CSSKeyframeRule+_getUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js__get (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation>  _getUnchecked ::               (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule _getUnchecked self index@@ -116,6 +151,15 @@ getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +getNameUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                CSSKeyframesRule -> m result+getNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getName (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation>  getNameUnchecked ::                  (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result getNameUnchecked self@@ -129,6 +173,14 @@             (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> +getCssRulesUnsafe ::+                  (MonadIO m, HasCallStack) => CSSKeyframesRule -> m CSSRuleList+getCssRulesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCssRules (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation>  getCssRulesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSMediaRule        (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getMedia, getMedia, getMediaUnchecked, js_getCssRules,-        getCssRules, getCssRulesUnchecked, CSSMediaRule,-        castToCSSMediaRule, gTypeCSSMediaRule)+        js_getMedia, getMedia, getMediaUnsafe, getMediaUnchecked,+        js_getCssRules, getCssRules, getCssRulesUnsafe,+        getCssRulesUnchecked, CSSMediaRule(..), gTypeCSSMediaRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"         js_insertRule :: CSSMediaRule -> JSString -> Word -> IO Word@@ -54,6 +70,14 @@ getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> +getMediaUnsafe ::+               (MonadIO m, HasCallStack) => CSSMediaRule -> m MediaList+getMediaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMedia (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation>  getMediaUnchecked :: (MonadIO m) => CSSMediaRule -> m MediaList getMediaUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))@@ -65,6 +89,14 @@ getCssRules :: (MonadIO m) => CSSMediaRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> +getCssRulesUnsafe ::+                  (MonadIO m, HasCallStack) => CSSMediaRule -> m CSSRuleList+getCssRulesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCssRules (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation>  getCssRulesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSPageRule        (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, getSelectorTextUnchecked, js_getStyle, getStyle,-        getStyleUnchecked, CSSPageRule, castToCSSPageRule,-        gTypeCSSPageRule)+        getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,+        js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,+        CSSPageRule(..), gTypeCSSPageRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"         js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO ()@@ -41,6 +57,15 @@   = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +getSelectorTextUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        CSSPageRule -> m result+getSelectorTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSelectorText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation>  getSelectorTextUnchecked ::                          (MonadIO m, FromJSString result) => CSSPageRule -> m result getSelectorTextUnchecked self@@ -54,6 +79,14 @@ getStyle ::          (MonadIO m) => CSSPageRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> +getStyleUnsafe ::+               (MonadIO m, HasCallStack) => CSSPageRule -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation>  getStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -1,25 +1,32 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue        (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue,         getFloatValue_, js_setStringValue, setStringValue,         js_getStringValue, getStringValue, getStringValue_,         js_getCounterValue, getCounterValue, getCounterValue_,-        getCounterValueUnchecked, js_getRectValue, getRectValue,-        getRectValue_, getRectValueUnchecked, js_getRGBColorValue,-        getRGBColorValue, getRGBColorValue_, getRGBColorValueUnchecked,-        pattern CSS_UNKNOWN, pattern CSS_NUMBER, pattern CSS_PERCENTAGE,-        pattern CSS_EMS, pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM,-        pattern CSS_MM, pattern CSS_IN, pattern CSS_PT, pattern CSS_PC,-        pattern CSS_DEG, pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS,-        pattern CSS_S, pattern CSS_HZ, pattern CSS_KHZ,-        pattern CSS_DIMENSION, pattern CSS_STRING, pattern CSS_URI,-        pattern CSS_IDENT, pattern CSS_ATTR, pattern CSS_COUNTER,-        pattern CSS_RECT, pattern CSS_RGBCOLOR, pattern CSS_VW,-        pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,-        js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue,-        castToCSSPrimitiveValue, gTypeCSSPrimitiveValue)+        getCounterValueUnsafe, getCounterValueUnchecked, js_getRectValue,+        getRectValue, getRectValue_, getRectValueUnsafe,+        getRectValueUnchecked, js_getRGBColorValue, getRGBColorValue,+        getRGBColorValue_, getRGBColorValueUnsafe,+        getRGBColorValueUnchecked, pattern CSS_UNKNOWN, pattern CSS_NUMBER,+        pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS,+        pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN,+        pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD,+        pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ,+        pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING,+        pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR,+        pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR,+        pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,+        js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue(..),+        gTypeCSSPrimitiveValue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -35,6 +42,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)"         js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO ()@@ -97,6 +114,14 @@ getCounterValue_ self = liftIO (void (js_getCounterValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> +getCounterValueUnsafe ::+                      (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Counter+getCounterValueUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCounterValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation>  getCounterValueUnchecked ::                          (MonadIO m) => CSSPrimitiveValue -> m Counter getCounterValueUnchecked self@@ -116,6 +141,14 @@ getRectValue_ self = liftIO (void (js_getRectValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> +getRectValueUnsafe ::+                   (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m Rect+getRectValueUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRectValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation>  getRectValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m Rect getRectValueUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getRectValue (self)))@@ -132,6 +165,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation>  getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () getRGBColorValue_ self = liftIO (void (js_getRGBColorValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> +getRGBColorValueUnsafe ::+                       (MonadIO m, HasCallStack) => CSSPrimitiveValue -> m RGBColor+getRGBColorValueUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRGBColorValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation>  getRGBColorValueUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSRule        (pattern UNKNOWN_RULE, pattern STYLE_RULE, pattern CHARSET_RULE,         pattern IMPORT_RULE, pattern MEDIA_RULE, pattern FONT_FACE_RULE,@@ -6,13 +11,15 @@         pattern SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE,         pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE,         pattern WEBKIT_KEYFRAME_RULE, js_getType, getType, js_setCssText,-        setCssText, js_getCssText, getCssText, getCssTextUnchecked,-        js_getParentStyleSheet, getParentStyleSheet,-        getParentStyleSheetUnchecked, js_getParentRule, getParentRule,-        getParentRuleUnchecked, CSSRule, castToCSSRule, gTypeCSSRule,-        IsCSSRule, toCSSRule)+        setCssText, js_getCssText, getCssText, getCssTextUnsafe,+        getCssTextUnchecked, js_getParentStyleSheet, getParentStyleSheet,+        getParentStyleSheetUnsafe, getParentStyleSheetUnchecked,+        js_getParentRule, getParentRule, getParentRuleUnsafe,+        getParentRuleUnchecked, CSSRule(..), gTypeCSSRule, IsCSSRule,+        toCSSRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern UNKNOWN_RULE = 0 pattern STYLE_RULE = 1 pattern CHARSET_RULE = 2@@ -71,6 +88,15 @@   = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +getCssTextUnsafe ::+                 (MonadIO m, IsCSSRule self, HasCallStack, FromJSString result) =>+                   self -> m result+getCssTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCssText (toCSSRule self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation>  getCssTextUnchecked ::                     (MonadIO m, IsCSSRule self, FromJSString result) =>                       self -> m result@@ -89,6 +115,15 @@       (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> +getParentStyleSheetUnsafe ::+                          (MonadIO m, IsCSSRule self, HasCallStack) =>+                            self -> m CSSStyleSheet+getParentStyleSheetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation>  getParentStyleSheetUnchecked ::                              (MonadIO m, IsCSSRule self) => self -> m CSSStyleSheet getParentStyleSheetUnchecked self@@ -104,6 +139,14 @@               (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule) getParentRule self   = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> +getParentRuleUnsafe ::+                    (MonadIO m, IsCSSRule self, HasCallStack) => self -> m CSSRule+getParentRuleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getParentRule (toCSSRule self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation>  getParentRuleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSRuleList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        CSSRuleList, castToCSSRuleList, gTypeCSSRuleList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, CSSRuleList(..), gTypeCSSRuleList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         CSSRuleList -> Word -> IO (Nullable CSSRule)@@ -31,6 +47,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation>  item_ :: (MonadIO m) => CSSRuleList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => CSSRuleList -> Word -> m CSSRule+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation>  itemUnchecked :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule
src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -1,21 +1,30 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration        (js_getPropertyValue, getPropertyValue, getPropertyValue_,-        getPropertyValueUnchecked, js_getPropertyCSSValue,-        getPropertyCSSValue, getPropertyCSSValue_,-        getPropertyCSSValueUnchecked, js_removeProperty, removeProperty,-        removeProperty_, removePropertyUnchecked, js_getPropertyPriority,-        getPropertyPriority, getPropertyPriority_,-        getPropertyPriorityUnchecked, js_setProperty, setProperty, js_item,-        item, item_, js_getPropertyShorthand, getPropertyShorthand,-        getPropertyShorthand_, getPropertyShorthandUnchecked,-        js_isPropertyImplicit, isPropertyImplicit, isPropertyImplicit_,-        js_setCssText, setCssText, js_getCssText, getCssText,-        getCssTextUnchecked, js_getLength, getLength, js_getParentRule,-        getParentRule, getParentRuleUnchecked, CSSStyleDeclaration,-        castToCSSStyleDeclaration, gTypeCSSStyleDeclaration)+        getPropertyValueUnsafe, getPropertyValueUnchecked,+        js_getPropertyCSSValue, getPropertyCSSValue, getPropertyCSSValue_,+        getPropertyCSSValueUnsafe, getPropertyCSSValueUnchecked,+        js_removeProperty, removeProperty, removeProperty_,+        removePropertyUnsafe, removePropertyUnchecked,+        js_getPropertyPriority, getPropertyPriority, getPropertyPriority_,+        getPropertyPriorityUnsafe, getPropertyPriorityUnchecked,+        js_setProperty, setProperty, js_item, item, item_,+        js_getPropertyShorthand, getPropertyShorthand,+        getPropertyShorthand_, getPropertyShorthandUnsafe,+        getPropertyShorthandUnchecked, js_isPropertyImplicit,+        isPropertyImplicit, isPropertyImplicit_, js_setCssText, setCssText,+        js_getCssText, getCssText, getCssTextUnsafe, getCssTextUnchecked,+        js_getLength, getLength, js_getParentRule, getParentRule,+        getParentRuleUnsafe, getParentRuleUnchecked,+        CSSStyleDeclaration(..), gTypeCSSStyleDeclaration)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -31,6 +40,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"         js_getPropertyValue ::@@ -54,6 +73,17 @@       (void (js_getPropertyValue (self) (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> +getPropertyValueUnsafe ::+                       (MonadIO m, ToJSString propertyName, HasCallStack,+                        FromJSString result) =>+                         CSSStyleDeclaration -> propertyName -> m result+getPropertyValueUnsafe self propertyName+  = liftIO+      ((fromMaybeJSString <$>+          (js_getPropertyValue (self) (toJSString propertyName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation>  getPropertyValueUnchecked ::                           (MonadIO m, ToJSString propertyName, FromJSString result) =>                             CSSStyleDeclaration -> propertyName -> m result@@ -84,6 +114,16 @@       (void (js_getPropertyCSSValue (self) (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> +getPropertyCSSValueUnsafe ::+                          (MonadIO m, ToJSString propertyName, HasCallStack) =>+                            CSSStyleDeclaration -> propertyName -> m CSSValue+getPropertyCSSValueUnsafe self propertyName+  = liftIO+      ((nullableToMaybe <$>+          (js_getPropertyCSSValue (self) (toJSString propertyName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation>  getPropertyCSSValueUnchecked ::                              (MonadIO m, ToJSString propertyName) =>                                CSSStyleDeclaration -> propertyName -> m CSSValue@@ -114,6 +154,17 @@       (void (js_removeProperty (self) (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> +removePropertyUnsafe ::+                     (MonadIO m, ToJSString propertyName, HasCallStack,+                      FromJSString result) =>+                       CSSStyleDeclaration -> propertyName -> m result+removePropertyUnsafe self propertyName+  = liftIO+      ((fromMaybeJSString <$>+          (js_removeProperty (self) (toJSString propertyName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation>  removePropertyUnchecked ::                         (MonadIO m, ToJSString propertyName, FromJSString result) =>                           CSSStyleDeclaration -> propertyName -> m result@@ -144,6 +195,17 @@       (void (js_getPropertyPriority (self) (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriorityUnsafe ::+                          (MonadIO m, ToJSString propertyName, HasCallStack,+                           FromJSString result) =>+                            CSSStyleDeclaration -> propertyName -> m result+getPropertyPriorityUnsafe self propertyName+  = liftIO+      ((fromMaybeJSString <$>+          (js_getPropertyPriority (self) (toJSString propertyName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation>  getPropertyPriorityUnchecked ::                              (MonadIO m, ToJSString propertyName, FromJSString result) =>                                CSSStyleDeclaration -> propertyName -> m result@@ -204,6 +266,17 @@       (void (js_getPropertyShorthand (self) (toJSString propertyName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthandUnsafe ::+                           (MonadIO m, ToJSString propertyName, HasCallStack,+                            FromJSString result) =>+                             CSSStyleDeclaration -> propertyName -> m result+getPropertyShorthandUnsafe self propertyName+  = liftIO+      ((fromMaybeJSString <$>+          (js_getPropertyShorthand (self) (toJSString propertyName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthandUnchecked ::                               (MonadIO m, ToJSString propertyName, FromJSString result) =>                                 CSSStyleDeclaration -> propertyName -> m result@@ -252,6 +325,15 @@   = liftIO (fromMaybeJSString <$> (js_getCssText (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +getCssTextUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   CSSStyleDeclaration -> m result+getCssTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCssText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation>  getCssTextUnchecked ::                     (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result getCssTextUnchecked self@@ -272,6 +354,14 @@               (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self   = liftIO (nullableToMaybe <$> (js_getParentRule (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> +getParentRuleUnsafe ::+                    (MonadIO m, HasCallStack) => CSSStyleDeclaration -> m CSSRule+getParentRuleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getParentRule (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation>  getParentRuleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleRule        (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, getSelectorTextUnchecked, js_getStyle, getStyle,-        getStyleUnchecked, CSSStyleRule, castToCSSStyleRule,-        gTypeCSSStyleRule)+        getSelectorText, getSelectorTextUnsafe, getSelectorTextUnchecked,+        js_getStyle, getStyle, getStyleUnsafe, getStyleUnchecked,+        CSSStyleRule(..), gTypeCSSStyleRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"         js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO ()@@ -42,6 +58,15 @@   = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +getSelectorTextUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        CSSStyleRule -> m result+getSelectorTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSelectorText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation>  getSelectorTextUnchecked ::                          (MonadIO m, FromJSString result) => CSSStyleRule -> m result getSelectorTextUnchecked self@@ -55,6 +80,14 @@ getStyle ::          (MonadIO m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> +getStyleUnsafe ::+               (MonadIO m, HasCallStack) => CSSStyleRule -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation>  getStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet        (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,         js_addRule, addRule, addRule_, js_removeRule, removeRule,-        js_getOwnerRule, getOwnerRule, getOwnerRuleUnchecked,-        js_getCssRules, getCssRules, getCssRulesUnchecked, js_getRules,-        getRules, getRulesUnchecked, CSSStyleSheet, castToCSSStyleSheet,+        js_getOwnerRule, getOwnerRule, getOwnerRuleUnsafe,+        getOwnerRuleUnchecked, js_getCssRules, getCssRules,+        getCssRulesUnsafe, getCssRulesUnchecked, js_getRules, getRules,+        getRulesUnsafe, getRulesUnchecked, CSSStyleSheet(..),         gTypeCSSStyleSheet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"         js_insertRule :: CSSStyleSheet -> JSString -> Word -> IO Word@@ -85,6 +102,14 @@   = liftIO (nullableToMaybe <$> (js_getOwnerRule (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> +getOwnerRuleUnsafe ::+                   (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOwnerRule (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation>  getOwnerRuleUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRule getOwnerRuleUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerRule (self)))@@ -99,6 +124,14 @@   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> +getCssRulesUnsafe ::+                  (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRuleList+getCssRulesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCssRules (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation>  getCssRulesUnchecked ::                      (MonadIO m) => CSSStyleSheet -> m CSSRuleList getCssRulesUnchecked self@@ -110,6 +143,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation>  getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) getRules self = liftIO (nullableToMaybe <$> (js_getRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> +getRulesUnsafe ::+               (MonadIO m, HasCallStack) => CSSStyleSheet -> m CSSRuleList+getRulesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRules (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation>  getRulesUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList
src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule        (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,-        js_getCssRules, getCssRules, getCssRulesUnchecked,-        js_getConditionText, getConditionText, CSSSupportsRule,-        castToCSSSupportsRule, gTypeCSSSupportsRule)+        js_getCssRules, getCssRules, getCssRulesUnsafe,+        getCssRulesUnchecked, js_getConditionText, getConditionText,+        CSSSupportsRule(..), gTypeCSSSupportsRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"         js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word@@ -54,6 +70,14 @@             (MonadIO m) => CSSSupportsRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> +getCssRulesUnsafe ::+                  (MonadIO m, HasCallStack) => CSSSupportsRule -> m CSSRuleList+getCssRulesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCssRules (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation>  getCssRulesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSValue        (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,         pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText,-        setCssText, js_getCssText, getCssText, getCssTextUnchecked,-        js_getCssValueType, getCssValueType, CSSValue, castToCSSValue,-        gTypeCSSValue, IsCSSValue, toCSSValue)+        setCssText, js_getCssText, getCssText, getCssTextUnsafe,+        getCssTextUnchecked, js_getCssValueType, getCssValueType,+        CSSValue(..), gTypeCSSValue, IsCSSValue, toCSSValue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern CSS_INHERIT = 0 pattern CSS_PRIMITIVE_VALUE = 1 pattern CSS_VALUE_LIST = 2@@ -46,6 +62,15 @@              self -> m (Maybe result) getCssText self   = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +getCssTextUnsafe ::+                 (MonadIO m, IsCSSValue self, HasCallStack, FromJSString result) =>+                   self -> m result+getCssTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCssText (toCSSValue self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation>  getCssTextUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CSSValueList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        CSSValueList, castToCSSValueList, gTypeCSSValueList,-        IsCSSValueList, toCSSValueList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, CSSValueList(..), gTypeCSSValueList, IsCSSValueList,+        toCSSValueList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         CSSValueList -> Word -> IO (Nullable CSSValue)@@ -36,6 +52,15 @@ item_ :: (MonadIO m, IsCSSValueList self) => self -> Word -> m () item_ self index   = liftIO (void (js_item (toCSSValueList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> +itemUnsafe ::+           (MonadIO m, IsCSSValueList self, HasCallStack) =>+             self -> Word -> m CSSValue+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (toCSSValueList self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CanvasGradient-       (js_addColorStop, addColorStop, CanvasGradient,-        castToCanvasGradient, gTypeCanvasGradient)+       (js_addColorStop, addColorStop, CanvasGradient(..),+        gTypeCanvasGradient)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)"         js_addColorStop :: CanvasGradient -> Float -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext-       (js_getCanvas, getCanvas, getCanvasUnchecked,-        CanvasRenderingContext, castToCanvasRenderingContext,-        gTypeCanvasRenderingContext, IsCanvasRenderingContext,-        toCanvasRenderingContext)+       (js_getCanvas, getCanvas, getCanvasUnsafe, getCanvasUnchecked,+        CanvasRenderingContext(..), gTypeCanvasRenderingContext,+        IsCanvasRenderingContext, toCanvasRenderingContext)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas ::         CanvasRenderingContext -> IO (Nullable HTMLCanvasElement)@@ -33,6 +48,16 @@   = liftIO       (nullableToMaybe <$>          (js_getCanvas (toCanvasRenderingContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> +getCanvasUnsafe ::+                (MonadIO m, IsCanvasRenderingContext self, HasCallStack) =>+                  self -> m HTMLCanvasElement+getCanvasUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getCanvas (toCanvasRenderingContext self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation>  getCanvasUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext2D        (js_save, save, js_restore, restore, js_scale, scale, js_rotate,         rotate, js_translate, translate, js_transform, transform,         js_setTransform, setTransform, js_createLinearGradient,         createLinearGradient, createLinearGradient_,-        createLinearGradientUnchecked, js_createRadialGradient,-        createRadialGradient, createRadialGradient_,+        createLinearGradientUnsafe, createLinearGradientUnchecked,+        js_createRadialGradient, createRadialGradient,+        createRadialGradient_, createRadialGradientUnsafe,         createRadialGradientUnchecked, js_setLineDash, setLineDash,         js_getLineDash, getLineDash, getLineDash_, js_clearRect, clearRect,         js_fillRect, fillRect, js_beginPath, beginPath, js_closePath,@@ -18,20 +24,21 @@         js_isPointInStrokePath, isPointInStrokePath, isPointInStrokePath_,         js_isPointInPath, isPointInPath, isPointInPath_,         js_isPointInStroke, isPointInStroke, isPointInStroke_,-        js_measureText, measureText, measureText_, measureTextUnchecked,-        js_setAlpha, setAlpha, js_setCompositeOperation,-        setCompositeOperation, js_setLineWidthFunction,-        setLineWidthFunction, js_setLineCapFunction, setLineCapFunction,-        js_setLineJoinFunction, setLineJoinFunction,-        js_setMiterLimitFunction, setMiterLimitFunction, js_clearShadow,-        clearShadow, js_fillText, fillText, js_strokeText, strokeText,-        js_setStrokeColor, setStrokeColor, js_setStrokeColorGray,-        setStrokeColorGray, js_setStrokeColorRGB, setStrokeColorRGB,-        js_setStrokeColorCYMK, setStrokeColorCYMK, js_setFillColor,-        setFillColor, js_setFillColorGray, setFillColorGray,-        js_setFillColorRGB, setFillColorRGB, js_setFillColorCYMK,-        setFillColorCYMK, js_strokeRect, strokeRect, js_drawImage,-        drawImage, js_drawImageScaled, drawImageScaled, js_drawImagePart,+        js_measureText, measureText, measureText_, measureTextUnsafe,+        measureTextUnchecked, js_setAlpha, setAlpha,+        js_setCompositeOperation, setCompositeOperation,+        js_setLineWidthFunction, setLineWidthFunction,+        js_setLineCapFunction, setLineCapFunction, js_setLineJoinFunction,+        setLineJoinFunction, js_setMiterLimitFunction,+        setMiterLimitFunction, js_clearShadow, clearShadow, js_fillText,+        fillText, js_strokeText, strokeText, js_setStrokeColor,+        setStrokeColor, js_setStrokeColorGray, setStrokeColorGray,+        js_setStrokeColorRGB, setStrokeColorRGB, js_setStrokeColorCYMK,+        setStrokeColorCYMK, js_setFillColor, setFillColor,+        js_setFillColorGray, setFillColorGray, js_setFillColorRGB,+        setFillColorRGB, js_setFillColorCYMK, setFillColorCYMK,+        js_strokeRect, strokeRect, js_drawImage, drawImage,+        js_drawImageScaled, drawImageScaled, js_drawImagePart,         drawImagePart, js_drawImageFromCanvas, drawImageFromCanvas,         js_drawImageFromCanvasScaled, drawImageFromCanvasScaled,         js_drawImageFromCanvasPart, drawImageFromCanvasPart,@@ -45,32 +52,37 @@         webkitPutImageDataHD, js_webkitPutImageDataHDDirty,         webkitPutImageDataHDDirty, js_createPatternFromCanvas,         createPatternFromCanvas, createPatternFromCanvas_,-        createPatternFromCanvasUnchecked, js_createPattern, createPattern,-        createPattern_, createPatternUnchecked, js_createImageData,-        createImageData, createImageData_, createImageDataUnchecked,-        js_createImageDataSize, createImageDataSize, createImageDataSize_,-        createImageDataSizeUnchecked, js_getImageData, getImageData,-        getImageData_, getImageDataUnchecked, js_webkitGetImageDataHD,+        createPatternFromCanvasUnsafe, createPatternFromCanvasUnchecked,+        js_createPattern, createPattern, createPattern_,+        createPatternUnsafe, createPatternUnchecked, js_createImageData,+        createImageData, createImageData_, createImageDataUnsafe,+        createImageDataUnchecked, js_createImageDataSize,+        createImageDataSize, createImageDataSize_,+        createImageDataSizeUnsafe, createImageDataSizeUnchecked,+        js_getImageData, getImageData, getImageData_, getImageDataUnsafe,+        getImageDataUnchecked, js_webkitGetImageDataHD,         webkitGetImageDataHD, webkitGetImageDataHD_,-        webkitGetImageDataHDUnchecked, js_drawFocusIfNeeded,-        drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeededPath,-        js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha,-        getGlobalAlpha, js_setGlobalCompositeOperation,+        webkitGetImageDataHDUnsafe, webkitGetImageDataHDUnchecked,+        js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath,+        drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha,+        js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation,         setGlobalCompositeOperation, js_getGlobalCompositeOperation,-        getGlobalCompositeOperation, getGlobalCompositeOperationUnchecked,-        js_setLineWidth, setLineWidth, js_getLineWidth, getLineWidth,-        js_setLineCap, setLineCap, js_getLineCap, getLineCap,+        getGlobalCompositeOperation, getGlobalCompositeOperationUnsafe,+        getGlobalCompositeOperationUnchecked, js_setLineWidth,+        setLineWidth, js_getLineWidth, getLineWidth, js_setLineCap,+        setLineCap, js_getLineCap, getLineCap, getLineCapUnsafe,         getLineCapUnchecked, js_setLineJoin, setLineJoin, js_getLineJoin,-        getLineJoin, getLineJoinUnchecked, js_setMiterLimit, setMiterLimit,-        js_getMiterLimit, getMiterLimit, js_setShadowOffsetX,-        setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX,-        js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY,-        getShadowOffsetY, js_setShadowBlur, setShadowBlur,-        js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor,-        js_getShadowColor, getShadowColor, getShadowColorUnchecked,+        getLineJoin, getLineJoinUnsafe, getLineJoinUnchecked,+        js_setMiterLimit, setMiterLimit, js_getMiterLimit, getMiterLimit,+        js_setShadowOffsetX, setShadowOffsetX, js_getShadowOffsetX,+        getShadowOffsetX, js_setShadowOffsetY, setShadowOffsetY,+        js_getShadowOffsetY, getShadowOffsetY, js_setShadowBlur,+        setShadowBlur, js_getShadowBlur, getShadowBlur, js_setShadowColor,+        setShadowColor, js_getShadowColor, getShadowColor,+        getShadowColorUnsafe, getShadowColorUnchecked,         js_setLineDashOffset, setLineDashOffset, js_getLineDashOffset,         getLineDashOffset, js_setWebkitLineDash, setWebkitLineDash,-        js_getWebkitLineDash, getWebkitLineDash,+        js_getWebkitLineDash, getWebkitLineDash, getWebkitLineDashUnsafe,         getWebkitLineDashUnchecked, js_setWebkitLineDashOffset,         setWebkitLineDashOffset, js_getWebkitLineDashOffset,         getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont,@@ -78,15 +90,17 @@         js_setTextBaseline, setTextBaseline, js_getTextBaseline,         getTextBaseline, js_setDirection, setDirection, js_getDirection,         getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle,-        getStrokeStyle, getStrokeStyleUnchecked, js_setFillStyle,-        setFillStyle, js_getFillStyle, getFillStyle, getFillStyleUnchecked,+        getStrokeStyle, getStrokeStyleUnsafe, getStrokeStyleUnchecked,+        js_setFillStyle, setFillStyle, js_getFillStyle, getFillStyle,+        getFillStyleUnsafe, getFillStyleUnchecked,         js_getWebkitBackingStorePixelRatio,         getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled,         setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,-        getWebkitImageSmoothingEnabled, CanvasRenderingContext2D,-        castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D)+        getWebkitImageSmoothingEnabled, CanvasRenderingContext2D(..),+        gTypeCanvasRenderingContext2D)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -102,6 +116,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"save\"]()" js_save ::         CanvasRenderingContext2D -> IO ()@@ -190,6 +214,16 @@   = liftIO (void (js_createLinearGradient (self) x0 y0 x1 y1))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradientUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             CanvasRenderingContext2D ->+                               Float -> Float -> Float -> Float -> m CanvasGradient+createLinearGradientUnsafe self x0 y0 x1 y1+  = liftIO+      ((nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation>  createLinearGradientUnchecked ::                               (MonadIO m) =>                                 CanvasRenderingContext2D ->@@ -228,6 +262,18 @@   = liftIO (void (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradientUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             CanvasRenderingContext2D ->+                               Float ->+                                 Float -> Float -> Float -> Float -> Float -> m CanvasGradient+createRadialGradientUnsafe self x0 y0 r0 x1 y1 r1+  = liftIO+      ((nullableToMaybe <$>+          (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation>  createRadialGradientUnchecked ::                               (MonadIO m) =>                                 CanvasRenderingContext2D ->@@ -544,6 +590,15 @@   = liftIO (void (js_measureText (self) (toJSString text)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureTextUnsafe ::+                  (MonadIO m, ToJSString text, HasCallStack) =>+                    CanvasRenderingContext2D -> text -> m TextMetrics+measureTextUnsafe self text+  = liftIO+      ((nullableToMaybe <$> (js_measureText (self) (toJSString text)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation>  measureTextUnchecked ::                      (MonadIO m, ToJSString text) =>                        CanvasRenderingContext2D -> text -> m TextMetrics@@ -1109,6 +1164,18 @@             (toMaybeJSString repetitionType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternFromCanvasUnsafe ::+                              (MonadIO m, ToJSString repetitionType, HasCallStack) =>+                                CanvasRenderingContext2D ->+                                  Maybe HTMLCanvasElement -> Maybe repetitionType -> m CanvasPattern+createPatternFromCanvasUnsafe self canvas repetitionType+  = liftIO+      ((nullableToMaybe <$>+          (js_createPatternFromCanvas (self) (maybeToNullable canvas)+             (toMaybeJSString repetitionType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation>  createPatternFromCanvasUnchecked ::                                  (MonadIO m, ToJSString repetitionType) =>                                    CanvasRenderingContext2D ->@@ -1150,6 +1217,18 @@             (toMaybeJSString repetitionType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternUnsafe ::+                    (MonadIO m, ToJSString repetitionType, HasCallStack) =>+                      CanvasRenderingContext2D ->+                        Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern+createPatternUnsafe self image repetitionType+  = liftIO+      ((nullableToMaybe <$>+          (js_createPattern (self) (maybeToNullable image)+             (toMaybeJSString repetitionType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation>  createPatternUnchecked ::                        (MonadIO m, ToJSString repetitionType) =>                          CanvasRenderingContext2D ->@@ -1182,6 +1261,16 @@       (void (js_createImageData (self) (maybeToNullable imagedata)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        CanvasRenderingContext2D -> Maybe ImageData -> m ImageData+createImageDataUnsafe self imagedata+  = liftIO+      ((nullableToMaybe <$>+          (js_createImageData (self) (maybeToNullable imagedata)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation>  createImageDataUnchecked ::                          (MonadIO m) =>                            CanvasRenderingContext2D -> Maybe ImageData -> m ImageData@@ -1210,6 +1299,15 @@   = liftIO (void (js_createImageDataSize (self) sw sh))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSizeUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            CanvasRenderingContext2D -> Float -> Float -> m ImageData+createImageDataSizeUnsafe self sw sh+  = liftIO+      ((nullableToMaybe <$> (js_createImageDataSize (self) sw sh)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation>  createImageDataSizeUnchecked ::                              (MonadIO m) =>                                CanvasRenderingContext2D -> Float -> Float -> m ImageData@@ -1240,6 +1338,16 @@   = liftIO (void (js_getImageData (self) sx sy sw sh))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageDataUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     CanvasRenderingContext2D ->+                       Float -> Float -> Float -> Float -> m ImageData+getImageDataUnsafe self sx sy sw sh+  = liftIO+      ((nullableToMaybe <$> (js_getImageData (self) sx sy sw sh)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation>  getImageDataUnchecked ::                       (MonadIO m) =>                         CanvasRenderingContext2D ->@@ -1273,6 +1381,16 @@   = liftIO (void (js_webkitGetImageDataHD (self) sx sy sw sh))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHDUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             CanvasRenderingContext2D ->+                               Float -> Float -> Float -> Float -> m ImageData+webkitGetImageDataHDUnsafe self sx sy sw sh+  = liftIO+      ((nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation>  webkitGetImageDataHDUnchecked ::                               (MonadIO m) =>                                 CanvasRenderingContext2D ->@@ -1351,6 +1469,15 @@       (fromMaybeJSString <$> (js_getGlobalCompositeOperation (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +getGlobalCompositeOperationUnsafe ::+                                  (MonadIO m, HasCallStack, FromJSString result) =>+                                    CanvasRenderingContext2D -> m result+getGlobalCompositeOperationUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getGlobalCompositeOperation (self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation>  getGlobalCompositeOperationUnchecked ::                                      (MonadIO m, FromJSString result) =>                                        CanvasRenderingContext2D -> m result@@ -1396,6 +1523,15 @@   = liftIO (fromMaybeJSString <$> (js_getLineCap (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +getLineCapUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   CanvasRenderingContext2D -> m result+getLineCapUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLineCap (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation>  getLineCapUnchecked ::                     (MonadIO m, FromJSString result) =>                       CanvasRenderingContext2D -> m result@@ -1424,6 +1560,15 @@   = liftIO (fromMaybeJSString <$> (js_getLineJoin (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +getLineJoinUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    CanvasRenderingContext2D -> m result+getLineJoinUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLineJoin (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation>  getLineJoinUnchecked ::                      (MonadIO m, FromJSString result) =>                        CanvasRenderingContext2D -> m result@@ -1515,6 +1660,15 @@   = liftIO (fromMaybeJSString <$> (js_getShadowColor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +getShadowColorUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       CanvasRenderingContext2D -> m result+getShadowColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getShadowColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation>  getShadowColorUnchecked ::                         (MonadIO m, FromJSString result) =>                           CanvasRenderingContext2D -> m result@@ -1562,6 +1716,14 @@   = liftIO (nullableToMaybe <$> (js_getWebkitLineDash (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +getWebkitLineDashUnsafe ::+                        (MonadIO m, HasCallStack) => CanvasRenderingContext2D -> m Array+getWebkitLineDashUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitLineDash (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation>  getWebkitLineDashUnchecked ::                            (MonadIO m) => CanvasRenderingContext2D -> m Array getWebkitLineDashUnchecked self@@ -1689,6 +1851,15 @@   = liftIO (nullableToMaybe <$> (js_getStrokeStyle (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +getStrokeStyleUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       CanvasRenderingContext2D -> m CanvasStyle+getStrokeStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStrokeStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation>  getStrokeStyleUnchecked ::                         (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle getStrokeStyleUnchecked self@@ -1716,6 +1887,15 @@              (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getFillStyle self   = liftIO (nullableToMaybe <$> (js_getFillStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +getFillStyleUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     CanvasRenderingContext2D -> m CanvasStyle+getFillStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFillStyle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation>  getFillStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CapabilityRange        (js_getMax, getMax, js_getMin, getMin, js_getSupported,-        getSupported, CapabilityRange, castToCapabilityRange,-        gTypeCapabilityRange)+        getSupported, CapabilityRange(..), gTypeCapabilityRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::         CapabilityRange -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CharacterData        (js_substringData, substringData, substringData_,-        substringDataUnchecked, js_appendData, appendData, js_insertData,-        insertData, js_deleteData, deleteData, js_replaceData, replaceData,-        js_setData, setData, js_getData, getData, getDataUnchecked,-        js_getLength, getLength, CharacterData, castToCharacterData,-        gTypeCharacterData, IsCharacterData, toCharacterData)+        substringDataUnsafe, substringDataUnchecked, js_appendData,+        appendData, js_insertData, insertData, js_deleteData, deleteData,+        js_replaceData, replaceData, js_setData, setData, js_getData,+        getData, getDataUnsafe, getDataUnchecked, js_getLength, getLength,+        CharacterData(..), gTypeCharacterData, IsCharacterData,+        toCharacterData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"         js_substringData ::@@ -45,6 +62,17 @@       (void (js_substringData (toCharacterData self) offset length))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> +substringDataUnsafe ::+                    (MonadIO m, IsCharacterData self, HasCallStack,+                     FromJSString result) =>+                      self -> Word -> Word -> m result+substringDataUnsafe self offset length+  = liftIO+      ((fromMaybeJSString <$>+          (js_substringData (toCharacterData self) offset length))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation>  substringDataUnchecked ::                        (MonadIO m, IsCharacterData self, FromJSString result) =>                          self -> Word -> Word -> m result@@ -116,6 +144,16 @@ getData self   = liftIO       (fromMaybeJSString <$> (js_getData (toCharacterData self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +getDataUnsafe ::+              (MonadIO m, IsCharacterData self, HasCallStack,+               FromJSString result) =>+                self -> m result+getDataUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getData (toCharacterData self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation>  getDataUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -1,8 +1,13 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ChildNode-       (js_remove, remove, ChildNode, castToChildNode, gTypeChildNode)-       where+       (js_remove, remove, ChildNode(..), gTypeChildNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -18,6 +23,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::         ChildNode -> IO ()
src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ClientRect        (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom,         js_getLeft, getLeft, js_getWidth, getWidth, js_getHeight,-        getHeight, ClientRect, castToClientRect, gTypeClientRect)+        getHeight, ClientRect(..), gTypeClientRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"top\"]" js_getTop ::         ClientRect -> IO Float
src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ClientRectList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        ClientRectList, castToClientRectList, gTypeClientRectList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, ClientRectList(..), gTypeClientRectList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         ClientRectList -> Word -> IO (Nullable ClientRect)@@ -32,6 +48,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation>  item_ :: (MonadIO m) => ClientRectList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => ClientRectList -> Word -> m ClientRect+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CloseEvent        (js_getWasClean, getWasClean, js_getCode, getCode, js_getReason,-        getReason, CloseEvent, castToCloseEvent, gTypeCloseEvent)+        getReason, CloseEvent(..), gTypeCloseEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)"         js_getWasClean :: CloseEvent -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost        (js_clearConsoleMessages, clearConsoleMessages, js_copyText,         copyText, js_inspect, inspect, js_inspectedObject, inspectedObject,         inspectedObject_, js_getEventListeners, getEventListeners,-        getEventListeners_, getEventListenersUnchecked, js_databaseId,-        databaseId, databaseId_, js_storageId, storageId, storageId_,-        CommandLineAPIHost, castToCommandLineAPIHost,+        getEventListeners_, getEventListenersUnsafe,+        getEventListenersUnchecked, js_databaseId, databaseId, databaseId_,+        js_storageId, storageId, storageId_, CommandLineAPIHost(..),         gTypeCommandLineAPIHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()"         js_clearConsoleMessages :: CommandLineAPIHost -> IO ()@@ -84,6 +100,16 @@   = liftIO       (void          (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> +getEventListenersUnsafe ::+                        (MonadIO m, IsNode node, HasCallStack) =>+                          CommandLineAPIHost -> Maybe node -> m Array+getEventListenersUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation>  getEventListenersUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -1,8 +1,13 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Comment-       (js_newComment, newComment, Comment, castToComment, gTypeComment)-       where+       (js_newComment, newComment, Comment(..), gTypeComment) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -18,6 +23,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"Comment\"]($1)"         js_newComment :: JSString -> IO Comment
src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CompositionEvent        (js_initCompositionEvent, initCompositionEvent, js_getData,-        getData, CompositionEvent, castToCompositionEvent,-        gTypeCompositionEvent)+        getData, CompositionEvent(..), gTypeCompositionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)"
src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ConvolverNode-       (js_setBuffer, setBuffer, js_getBuffer, getBuffer,+       (js_setBuffer, setBuffer, js_getBuffer, getBuffer, getBufferUnsafe,         getBufferUnchecked, js_setNormalize, setNormalize, js_getNormalize,-        getNormalize, ConvolverNode, castToConvolverNode,-        gTypeConvolverNode)+        getNormalize, ConvolverNode(..), gTypeConvolverNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"buffer\"] = $2;"         js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO ()@@ -37,6 +52,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer) getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +getBufferUnsafe ::+                (MonadIO m, HasCallStack) => ConvolverNode -> m AudioBuffer+getBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer
src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -1,13 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Coordinates        (js_getLatitude, getLatitude, js_getLongitude, getLongitude,-        js_getAltitude, getAltitude, getAltitudeUnchecked, js_getAccuracy,-        getAccuracy, js_getAltitudeAccuracy, getAltitudeAccuracy,-        getAltitudeAccuracyUnchecked, js_getHeading, getHeading,-        getHeadingUnchecked, js_getSpeed, getSpeed, getSpeedUnchecked,-        Coordinates, castToCoordinates, gTypeCoordinates)+        js_getAltitude, getAltitude, getAltitudeUnsafe,+        getAltitudeUnchecked, js_getAccuracy, getAccuracy,+        js_getAltitudeAccuracy, getAltitudeAccuracy,+        getAltitudeAccuracyUnsafe, getAltitudeAccuracyUnchecked,+        js_getHeading, getHeading, getHeadingUnsafe, getHeadingUnchecked,+        js_getSpeed, getSpeed, getSpeedUnsafe, getSpeedUnchecked,+        Coordinates(..), gTypeCoordinates)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude         :: Coordinates -> IO Double@@ -47,6 +65,14 @@   = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> +getAltitudeUnsafe ::+                  (MonadIO m, HasCallStack) => Coordinates -> m Double+getAltitudeUnsafe self+  = liftIO+      (((js_getAltitude (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation>  getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double getAltitudeUnchecked self   = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)@@ -68,6 +94,14 @@   = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> +getAltitudeAccuracyUnsafe ::+                          (MonadIO m, HasCallStack) => Coordinates -> m Double+getAltitudeAccuracyUnsafe self+  = liftIO+      (((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation>  getAltitudeAccuracyUnchecked ::                              (MonadIO m) => Coordinates -> m Double getAltitudeAccuracyUnchecked self@@ -82,6 +116,14 @@   = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> +getHeadingUnsafe ::+                 (MonadIO m, HasCallStack) => Coordinates -> m Double+getHeadingUnsafe self+  = liftIO+      (((js_getHeading (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation>  getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double getHeadingUnchecked self   = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)@@ -93,6 +135,14 @@ getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) getSpeed self   = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> +getSpeedUnsafe ::+               (MonadIO m, HasCallStack) => Coordinates -> m Double+getSpeedUnsafe self+  = liftIO+      (((js_getSpeed (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double
src/GHCJS/DOM/JSFFI/Generated/Counter.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Counter        (js_getIdentifier, getIdentifier, js_getListStyle, getListStyle,-        js_getSeparator, getSeparator, Counter, castToCounter,-        gTypeCounter)+        js_getSeparator, getSeparator, Counter(..), gTypeCounter)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"identifier\"]"         js_getIdentifier :: Counter -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Crypto        (js_getRandomValues, getRandomValues, getRandomValues_,-        getRandomValuesUnchecked, js_getWebkitSubtle, getWebkitSubtle,-        getWebkitSubtleUnchecked, Crypto, castToCrypto, gTypeCrypto)+        getRandomValuesUnsafe, getRandomValuesUnchecked,+        js_getWebkitSubtle, getWebkitSubtle, getWebkitSubtleUnsafe,+        getWebkitSubtleUnchecked, Crypto(..), gTypeCrypto)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getRandomValues\"]($2)"         js_getRandomValues ::@@ -46,6 +63,17 @@             (maybeToNullable (fmap toArrayBufferView array))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> +getRandomValuesUnsafe ::+                      (MonadIO m, IsArrayBufferView array, HasCallStack) =>+                        Crypto -> Maybe array -> m ArrayBufferView+getRandomValuesUnsafe self array+  = liftIO+      ((nullableToMaybe <$>+          (js_getRandomValues (self)+             (maybeToNullable (fmap toArrayBufferView array))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation>  getRandomValuesUnchecked ::                          (MonadIO m, IsArrayBufferView array) =>                            Crypto -> Maybe array -> m ArrayBufferView@@ -62,6 +90,14 @@ getWebkitSubtle :: (MonadIO m) => Crypto -> m (Maybe SubtleCrypto) getWebkitSubtle self   = liftIO (nullableToMaybe <$> (js_getWebkitSubtle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> +getWebkitSubtleUnsafe ::+                      (MonadIO m, HasCallStack) => Crypto -> m SubtleCrypto+getWebkitSubtleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitSubtle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation>  getWebkitSubtleUnchecked :: (MonadIO m) => Crypto -> m SubtleCrypto
src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CryptoKey        (js_getType, getType, js_getExtractable, getExtractable,-        js_getAlgorithm, getAlgorithm, getAlgorithmUnchecked, js_getUsages,-        getUsages, CryptoKey, castToCryptoKey, gTypeCryptoKey)+        js_getAlgorithm, getAlgorithm, getAlgorithmUnsafe,+        getAlgorithmUnchecked, js_getUsages, getUsages, CryptoKey(..),+        gTypeCryptoKey)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         CryptoKey -> IO JSVal@@ -42,6 +59,14 @@ getAlgorithm :: (MonadIO m) => CryptoKey -> m (Maybe Algorithm) getAlgorithm self   = liftIO (nullableToMaybe <$> (js_getAlgorithm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> +getAlgorithmUnsafe ::+                   (MonadIO m, HasCallStack) => CryptoKey -> m Algorithm+getAlgorithmUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAlgorithm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation>  getAlgorithmUnchecked :: (MonadIO m) => CryptoKey -> m Algorithm
src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair-       (js_getPublicKey, getPublicKey, getPublicKeyUnchecked,-        js_getPrivateKey, getPrivateKey, getPrivateKeyUnchecked,-        CryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair)+       (js_getPublicKey, getPublicKey, getPublicKeyUnsafe,+        getPublicKeyUnchecked, js_getPrivateKey, getPrivateKey,+        getPrivateKeyUnsafe, getPrivateKeyUnchecked, CryptoKeyPair(..),+        gTypeCryptoKeyPair)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"publicKey\"]"         js_getPublicKey :: CryptoKeyPair -> IO (Nullable CryptoKey)@@ -30,6 +47,14 @@   = liftIO (nullableToMaybe <$> (js_getPublicKey (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> +getPublicKeyUnsafe ::+                   (MonadIO m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPublicKeyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPublicKey (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation>  getPublicKeyUnchecked ::                       (MonadIO m) => CryptoKeyPair -> m CryptoKey getPublicKeyUnchecked self@@ -43,6 +68,14 @@               (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) getPrivateKey self   = liftIO (nullableToMaybe <$> (js_getPrivateKey (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> +getPrivateKeyUnsafe ::+                    (MonadIO m, HasCallStack) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPrivateKey (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation>  getPrivateKeyUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.CustomEvent        (js_initCustomEvent, initCustomEvent, js_getDetail, getDetail,-        CustomEvent, castToCustomEvent, gTypeCustomEvent)+        CustomEvent(..), gTypeCustomEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent ::
src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMError-       (js_getName, getName, DOMError, castToDOMError, gTypeDOMError,-        IsDOMError, toDOMError)+       (js_getName, getName, DOMError(..), gTypeDOMError, IsDOMError,+        toDOMError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         DOMError -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -1,16 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMImplementation        (js_hasFeature, hasFeature, hasFeature_, js_createDocumentType,-        createDocumentType, createDocumentType_,+        createDocumentType, createDocumentType_, createDocumentTypeUnsafe,         createDocumentTypeUnchecked, js_createDocument, createDocument,-        createDocument_, createDocumentUnchecked, js_createCSSStyleSheet,-        createCSSStyleSheet, createCSSStyleSheet_,-        createCSSStyleSheetUnchecked, js_createHTMLDocument,-        createHTMLDocument, createHTMLDocument_,-        createHTMLDocumentUnchecked, DOMImplementation,-        castToDOMImplementation, gTypeDOMImplementation)+        createDocument_, createDocumentUnsafe, createDocumentUnchecked,+        js_createCSSStyleSheet, createCSSStyleSheet, createCSSStyleSheet_,+        createCSSStyleSheetUnsafe, createCSSStyleSheetUnchecked,+        js_createHTMLDocument, createHTMLDocument, createHTMLDocument_,+        createHTMLDocumentUnsafe, createHTMLDocumentUnchecked,+        DOMImplementation(..), gTypeDOMImplementation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature ::@@ -85,6 +101,21 @@             (toMaybeJSString systemId)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> +createDocumentTypeUnsafe ::+                         (MonadIO m, ToJSString qualifiedName, ToJSString publicId,+                          ToJSString systemId, HasCallStack) =>+                           DOMImplementation ->+                             Maybe qualifiedName ->+                               Maybe publicId -> Maybe systemId -> m DocumentType+createDocumentTypeUnsafe self qualifiedName publicId systemId+  = liftIO+      ((nullableToMaybe <$>+          (js_createDocumentType (self) (toMaybeJSString qualifiedName)+             (toMaybeJSString publicId)+             (toMaybeJSString systemId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation>  createDocumentTypeUnchecked ::                             (MonadIO m, ToJSString qualifiedName, ToJSString publicId,                              ToJSString systemId) =>@@ -132,6 +163,21 @@             (maybeToNullable doctype)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> +createDocumentUnsafe ::+                     (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName,+                      HasCallStack) =>+                       DOMImplementation ->+                         Maybe namespaceURI ->+                           Maybe qualifiedName -> Maybe DocumentType -> m Document+createDocumentUnsafe self namespaceURI qualifiedName doctype+  = liftIO+      ((nullableToMaybe <$>+          (js_createDocument (self) (toMaybeJSString namespaceURI)+             (toMaybeJSString qualifiedName)+             (maybeToNullable doctype)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation>  createDocumentUnchecked ::                         (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>                           DOMImplementation ->@@ -170,6 +216,17 @@             (toJSString media)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> +createCSSStyleSheetUnsafe ::+                          (MonadIO m, ToJSString title, ToJSString media, HasCallStack) =>+                            DOMImplementation -> title -> media -> m CSSStyleSheet+createCSSStyleSheetUnsafe self title media+  = liftIO+      ((nullableToMaybe <$>+          (js_createCSSStyleSheet (self) (toJSString title)+             (toJSString media)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation>  createCSSStyleSheetUnchecked ::                              (MonadIO m, ToJSString title, ToJSString media) =>                                DOMImplementation -> title -> media -> m CSSStyleSheet@@ -197,6 +254,16 @@                     (MonadIO m, ToJSString title) => DOMImplementation -> title -> m () createHTMLDocument_ self title   = liftIO (void (js_createHTMLDocument (self) (toJSString title)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocumentUnsafe ::+                         (MonadIO m, ToJSString title, HasCallStack) =>+                           DOMImplementation -> title -> m HTMLDocument+createHTMLDocumentUnsafe self title+  = liftIO+      ((nullableToMaybe <$>+          (js_createHTMLDocument (self) (toJSString title)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation>  createHTMLDocumentUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_getLength, getLength,-        DOMNamedFlowCollection, castToDOMNamedFlowCollection,+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_getLength, getLength, DOMNamedFlowCollection(..),         gTypeDOMNamedFlowCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow)@@ -37,6 +53,15 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) =>+             DOMNamedFlowCollection -> Word -> m WebKitNamedFlow+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  itemUnchecked ::               (MonadIO m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow itemUnchecked self index@@ -60,6 +85,15 @@              DOMNamedFlowCollection -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  DOMNamedFlowCollection -> name -> m WebKitNamedFlow+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMParser        (js_newDOMParser, newDOMParser, js_parseFromString,-        parseFromString, parseFromString_, parseFromStringUnchecked,-        DOMParser, castToDOMParser, gTypeDOMParser)+        parseFromString, parseFromString_, parseFromStringUnsafe,+        parseFromStringUnchecked, DOMParser(..), gTypeDOMParser)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"DOMParser\"]()"         js_newDOMParser :: IO DOMParser@@ -51,6 +67,18 @@       (void          (js_parseFromString (self) (toJSString str)             (toJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> +parseFromStringUnsafe ::+                      (MonadIO m, ToJSString str, ToJSString contentType,+                       HasCallStack) =>+                        DOMParser -> str -> contentType -> m Document+parseFromStringUnsafe self str contentType+  = liftIO+      ((nullableToMaybe <$>+          (js_parseFromString (self) (toJSString str)+             (toJSString contentType)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation>  parseFromStringUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList-       (js__get, _get, _get_, _getUnchecked, js_setValue, setValue,-        js_getValue, getValue, DOMSettableTokenList,-        castToDOMSettableTokenList, gTypeDOMSettableTokenList)+       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_setValue,+        setValue, js_getValue, getValue, DOMSettableTokenList(..),+        gTypeDOMSettableTokenList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::         DOMSettableTokenList -> Word -> IO (Nullable JSString)@@ -34,6 +50,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation>  _get_ :: (MonadIO m) => DOMSettableTokenList -> Word -> m () _get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> +_getUnsafe ::+           (MonadIO m, HasCallStack, FromJSString result) =>+             DOMSettableTokenList -> Word -> m result+_getUnsafe self index+  = liftIO+      ((fromMaybeJSString <$> (js__get (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation>  _getUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMStringList-       (js_item, item, item_, itemUnchecked, js_contains, contains,-        contains_, js_getLength, getLength, DOMStringList,-        castToDOMStringList, gTypeDOMStringList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,+        contains, contains_, js_getLength, getLength, DOMStringList(..),+        gTypeDOMStringList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         DOMStringList -> Word -> IO (Nullable JSString)@@ -34,6 +50,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation>  item_ :: (MonadIO m) => DOMStringList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack, FromJSString result) =>+             DOMStringList -> Word -> m result+itemUnsafe self index+  = liftIO+      ((fromMaybeJSString <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DOMTokenList-       (js_item, item, item_, itemUnchecked, js_contains, contains,-        contains_, js_add, add, js_remove, remove, js_toggle, toggle,-        toggle_, js_toString, toString, toString_, js_getLength, getLength,-        DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,-        IsDOMTokenList, toDOMTokenList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_contains,+        contains, contains_, js_add, add, js_remove, remove, js_toggle,+        toggle, toggle_, js_toString, toString, toString_, js_getLength,+        getLength, DOMTokenList(..), gTypeDOMTokenList, IsDOMTokenList,+        toDOMTokenList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         DOMTokenList -> Word -> IO (Nullable JSString)@@ -38,6 +54,16 @@ item_ :: (MonadIO m, IsDOMTokenList self) => self -> Word -> m () item_ self index   = liftIO (void (js_item (toDOMTokenList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +itemUnsafe ::+           (MonadIO m, IsDOMTokenList self, HasCallStack,+            FromJSString result) =>+             self -> Word -> m result+itemUnsafe self index+  = liftIO+      ((fromMaybeJSString <$> (js_item (toDOMTokenList self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataCue        (js_newDataCue, newDataCue, js_newDataCue', newDataCue',-        js_setData, setData, js_getData, getData, getDataUnchecked,-        js_setValue, setValue, js_getValue, getValue, js_getType, getType,-        DataCue, castToDataCue, gTypeDataCue)+        js_setData, setData, js_getData, getData, getDataUnsafe,+        getDataUnchecked, js_setValue, setValue, js_getValue, getValue,+        js_getType, getType, DataCue(..), gTypeDataCue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"WebKitDataCue\"]()"         js_newDataCue :: IO DataCue@@ -57,6 +73,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation>  getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer) getData self = liftIO (nullableToMaybe <$> (js_getData (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +getDataUnsafe ::+              (MonadIO m, HasCallStack) => DataCue -> m ArrayBuffer+getDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getData (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation>  getDataUnchecked :: (MonadIO m) => DataCue -> m ArrayBuffer
src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -1,15 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataTransfer        (js_clearData, clearData, js_getData, getData, getData_,         js_setData, setData, js_setDragImage, setDragImage,         js_setDropEffect, setDropEffect, js_getDropEffect, getDropEffect,         js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed,-        getEffectAllowed, js_getTypes, getTypes, getTypesUnchecked,-        js_getFiles, getFiles, getFilesUnchecked, js_getItems, getItems,-        getItemsUnchecked, DataTransfer, castToDataTransfer,-        gTypeDataTransfer)+        getEffectAllowed, js_getTypes, getTypes, getTypesUnsafe,+        getTypesUnchecked, js_getFiles, getFiles, getFilesUnsafe,+        getFilesUnchecked, js_getItems, getItems, getItemsUnsafe,+        getItemsUnchecked, DataTransfer(..), gTypeDataTransfer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clearData\"]($2)"         js_clearData :: DataTransfer -> JSString -> IO ()@@ -118,6 +134,14 @@ getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> +getTypesUnsafe ::+               (MonadIO m, HasCallStack) => DataTransfer -> m Array+getTypesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTypes (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation>  getTypesUnchecked :: (MonadIO m) => DataTransfer -> m Array getTypesUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getTypes (self)))@@ -130,6 +154,14 @@ getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> +getFilesUnsafe ::+               (MonadIO m, HasCallStack) => DataTransfer -> m FileList+getFilesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFiles (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation>  getFilesUnchecked :: (MonadIO m) => DataTransfer -> m FileList getFilesUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))@@ -141,6 +173,14 @@ getItems ::          (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList) getItems self = liftIO (nullableToMaybe <$> (js_getItems (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> +getItemsUnsafe ::+               (MonadIO m, HasCallStack) => DataTransfer -> m DataTransferItemList+getItemsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getItems (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation>  getItemsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItem        (js_getAsString, getAsString, js_getAsFile, getAsFile, getAsFile_,-        getAsFileUnchecked, js_getKind, getKind, js_getType, getType,-        DataTransferItem, castToDataTransferItem, gTypeDataTransferItem)+        getAsFileUnsafe, getAsFileUnchecked, js_getKind, getKind,+        js_getType, getType, DataTransferItem(..), gTypeDataTransferItem)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getAsString\"]($2)"         js_getAsString ::@@ -42,6 +58,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFile_ :: (MonadIO m) => DataTransferItem -> m () getAsFile_ self = liftIO (void (js_getAsFile (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> +getAsFileUnsafe ::+                (MonadIO m, HasCallStack) => DataTransferItem -> m Blob+getAsFileUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAsFile (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob
src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItemList-       (js_item, item, item_, itemUnchecked, js_clear, clear, js_addFile,-        addFile, js_add, add, js_getLength, getLength,-        DataTransferItemList, castToDataTransferItemList,-        gTypeDataTransferItemList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_clear, clear,+        js_addFile, addFile, js_add, add, js_getLength, getLength,+        DataTransferItemList(..), gTypeDataTransferItemList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         DataTransferItemList -> Word -> IO (Nullable DataTransferItem)@@ -35,6 +50,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation>  item_ :: (MonadIO m) => DataTransferItemList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) =>+             DataTransferItemList -> Word -> m DataTransferItem+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Database        (js_changeVersion, changeVersion, js_transaction, transaction,         js_readTransaction, readTransaction, js_getVersion, getVersion,-        Database, castToDatabase, gTypeDatabase)+        Database(..), gTypeDatabase)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion ::
src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DatabaseCallback        (newDatabaseCallback, newDatabaseCallbackSync,         newDatabaseCallbackAsync, DatabaseCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallback ::
src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DedicatedWorkerGlobalScope-       (js_postMessage, postMessage, message, DedicatedWorkerGlobalScope,-        castToDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope)+       (js_postMessage, postMessage, message,+        DedicatedWorkerGlobalScope(..), gTypeDedicatedWorkerGlobalScope)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"         js_postMessage ::
src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DelayNode-       (js_getDelayTime, getDelayTime, getDelayTimeUnchecked, DelayNode,-        castToDelayNode, gTypeDelayNode)+       (js_getDelayTime, getDelayTime, getDelayTimeUnsafe,+        getDelayTimeUnchecked, DelayNode(..), gTypeDelayNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"delayTime\"]"         js_getDelayTime :: DelayNode -> IO (Nullable AudioParam)@@ -27,6 +43,14 @@ getDelayTime :: (MonadIO m) => DelayNode -> m (Maybe AudioParam) getDelayTime self   = liftIO (nullableToMaybe <$> (js_getDelayTime (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> +getDelayTimeUnsafe ::+                   (MonadIO m, HasCallStack) => DelayNode -> m AudioParam+getDelayTimeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDelayTime (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation>  getDelayTimeUnchecked :: (MonadIO m) => DelayNode -> m AudioParam
src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -1,15 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent        (js_initDeviceMotionEvent, initDeviceMotionEvent,-        js_getAcceleration, getAcceleration, getAccelerationUnchecked,-        js_getAccelerationIncludingGravity,+        js_getAcceleration, getAcceleration, getAccelerationUnsafe,+        getAccelerationUnchecked, js_getAccelerationIncludingGravity,         getAccelerationIncludingGravity,+        getAccelerationIncludingGravityUnsafe,         getAccelerationIncludingGravityUnchecked, js_getRotationRate,-        getRotationRate, getRotationRateUnchecked, js_getInterval,-        getInterval, DeviceMotionEvent, castToDeviceMotionEvent,+        getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked,+        js_getInterval, getInterval, DeviceMotionEvent(..),         gTypeDeviceMotionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"@@ -70,6 +87,14 @@   = liftIO (nullableToMaybe <$> (js_getAcceleration (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> +getAccelerationUnsafe ::+                      (MonadIO m, HasCallStack) => DeviceMotionEvent -> m Acceleration+getAccelerationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAcceleration (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation>  getAccelerationUnchecked ::                          (MonadIO m) => DeviceMotionEvent -> m Acceleration getAccelerationUnchecked self@@ -89,6 +114,15 @@       (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> +getAccelerationIncludingGravityUnsafe ::+                                      (MonadIO m, HasCallStack) =>+                                        DeviceMotionEvent -> m Acceleration+getAccelerationIncludingGravityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation>  getAccelerationIncludingGravityUnchecked ::                                          (MonadIO m) => DeviceMotionEvent -> m Acceleration getAccelerationIncludingGravityUnchecked self@@ -105,6 +139,14 @@                 (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) getRotationRate self   = liftIO (nullableToMaybe <$> (js_getRotationRate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> +getRotationRateUnsafe ::+                      (MonadIO m, HasCallStack) => DeviceMotionEvent -> m RotationRate+getRotationRateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRotationRate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation>  getRotationRateUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DeviceOrientationEvent        (js_initDeviceOrientationEvent, initDeviceOrientationEvent,         js_getAlpha, getAlpha, js_getBeta, getBeta, js_getGamma, getGamma,-        js_getAbsolute, getAbsolute, DeviceOrientationEvent,-        castToDeviceOrientationEvent, gTypeDeviceOrientationEvent)+        js_getAbsolute, getAbsolute, DeviceOrientationEvent(..),+        gTypeDeviceOrientationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"
src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DeviceProximityEvent        (js_getValue, getValue, js_getMin, getMin, js_getMax, getMax,-        DeviceProximityEvent, castToDeviceProximityEvent,-        gTypeDeviceProximityEvent)+        DeviceProximityEvent(..), gTypeDeviceProximityEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         DeviceProximityEvent -> IO Double
src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -1,109 +1,141 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Document        (js_newDocument, newDocument, js_createElement, createElement,-        createElement_, createElementUnchecked, js_createDocumentFragment,-        createDocumentFragment, createDocumentFragment_,+        createElement_, createElementUnsafe, createElementUnchecked,+        js_createDocumentFragment, createDocumentFragment,+        createDocumentFragment_, createDocumentFragmentUnsafe,         createDocumentFragmentUnchecked, js_createTextNode, createTextNode,-        createTextNode_, createTextNodeUnchecked, js_createComment,-        createComment, createComment_, createCommentUnchecked,-        js_createCDATASection, createCDATASection, createCDATASection_,+        createTextNode_, createTextNodeUnsafe, createTextNodeUnchecked,+        js_createComment, createComment, createComment_,+        createCommentUnsafe, createCommentUnchecked, js_createCDATASection,+        createCDATASection, createCDATASection_, createCDATASectionUnsafe,         createCDATASectionUnchecked, js_createProcessingInstruction,         createProcessingInstruction, createProcessingInstruction_,+        createProcessingInstructionUnsafe,         createProcessingInstructionUnchecked, js_createAttribute,-        createAttribute, createAttribute_, createAttributeUnchecked,-        js_createEntityReference, createEntityReference,-        createEntityReference_, createEntityReferenceUnchecked,+        createAttribute, createAttribute_, createAttributeUnsafe,+        createAttributeUnchecked, js_createEntityReference,+        createEntityReference, createEntityReference_,+        createEntityReferenceUnsafe, createEntityReferenceUnchecked,         js_getElementsByTagName, getElementsByTagName,-        getElementsByTagName_, getElementsByTagNameUnchecked,-        js_importNode, importNode, importNode_, importNodeUnchecked,+        getElementsByTagName_, getElementsByTagNameUnsafe,+        getElementsByTagNameUnchecked, js_importNode, importNode,+        importNode_, importNodeUnsafe, importNodeUnchecked,         js_createElementNS, createElementNS, createElementNS_,-        createElementNSUnchecked, js_createAttributeNS, createAttributeNS,-        createAttributeNS_, createAttributeNSUnchecked,+        createElementNSUnsafe, createElementNSUnchecked,+        js_createAttributeNS, createAttributeNS, createAttributeNS_,+        createAttributeNSUnsafe, createAttributeNSUnchecked,         js_getElementsByTagNameNS, getElementsByTagNameNS,-        getElementsByTagNameNS_, getElementsByTagNameNSUnchecked,-        js_getElementById, getElementById, getElementById_,-        getElementByIdUnchecked, js_adoptNode, adoptNode, adoptNode_,+        getElementsByTagNameNS_, getElementsByTagNameNSUnsafe,+        getElementsByTagNameNSUnchecked, js_getElementById, getElementById,+        getElementById_, getElementByIdUnsafe, getElementByIdUnchecked,+        js_adoptNode, adoptNode, adoptNode_, adoptNodeUnsafe,         adoptNodeUnchecked, js_createEvent, createEvent, createEvent_,-        createEventUnchecked, js_createRange, createRange, createRange_,-        createRangeUnchecked, js_createNodeIterator, createNodeIterator,-        createNodeIterator_, createNodeIteratorUnchecked,+        createEventUnsafe, createEventUnchecked, js_createRange,+        createRange, createRange_, createRangeUnsafe, createRangeUnchecked,+        js_createNodeIterator, createNodeIterator, createNodeIterator_,+        createNodeIteratorUnsafe, createNodeIteratorUnchecked,         js_createTreeWalker, createTreeWalker, createTreeWalker_,-        createTreeWalkerUnchecked, js_getOverrideStyle, getOverrideStyle,-        getOverrideStyle_, getOverrideStyleUnchecked, js_createExpression,-        createExpression, createExpression_, createExpressionUnchecked,+        createTreeWalkerUnsafe, createTreeWalkerUnchecked,+        js_getOverrideStyle, getOverrideStyle, getOverrideStyle_,+        getOverrideStyleUnsafe, getOverrideStyleUnchecked,+        js_createExpression, createExpression, createExpression_,+        createExpressionUnsafe, createExpressionUnchecked,         js_createNSResolver, createNSResolver, createNSResolver_,-        createNSResolverUnchecked, js_evaluate, evaluate, evaluate_,-        evaluateUnchecked, js_execCommand, execCommand, execCommand_,-        js_queryCommandEnabled, queryCommandEnabled, queryCommandEnabled_,-        js_queryCommandIndeterm, queryCommandIndeterm,-        queryCommandIndeterm_, js_queryCommandState, queryCommandState,-        queryCommandState_, js_queryCommandSupported,+        createNSResolverUnsafe, createNSResolverUnchecked, js_evaluate,+        evaluate, evaluate_, evaluateUnsafe, evaluateUnchecked,+        js_execCommand, execCommand, execCommand_, js_queryCommandEnabled,+        queryCommandEnabled, queryCommandEnabled_, js_queryCommandIndeterm,+        queryCommandIndeterm, queryCommandIndeterm_, js_queryCommandState,+        queryCommandState, queryCommandState_, js_queryCommandSupported,         queryCommandSupported, queryCommandSupported_,         js_queryCommandValue, queryCommandValue, queryCommandValue_,         js_getElementsByName, getElementsByName, getElementsByName_,-        getElementsByNameUnchecked, js_elementFromPoint, elementFromPoint,-        elementFromPoint_, elementFromPointUnchecked,+        getElementsByNameUnsafe, getElementsByNameUnchecked,+        js_elementFromPoint, elementFromPoint, elementFromPoint_,+        elementFromPointUnsafe, elementFromPointUnchecked,         js_caretRangeFromPoint, caretRangeFromPoint, caretRangeFromPoint_,-        caretRangeFromPointUnchecked, js_getSelection, getSelection,-        getSelection_, getSelectionUnchecked, js_getCSSCanvasContext,-        getCSSCanvasContext, getCSSCanvasContext_,+        caretRangeFromPointUnsafe, caretRangeFromPointUnchecked,+        js_getSelection, getSelection, getSelection_, getSelectionUnsafe,+        getSelectionUnchecked, js_getCSSCanvasContext, getCSSCanvasContext,+        getCSSCanvasContext_, getCSSCanvasContextUnsafe,         getCSSCanvasContextUnchecked, js_getElementsByClassName,         getElementsByClassName, getElementsByClassName_,-        getElementsByClassNameUnchecked, js_hasFocus, hasFocus, hasFocus_,-        js_querySelector, querySelector, querySelector_,-        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,-        querySelectorAll_, querySelectorAllUnchecked,+        getElementsByClassNameUnsafe, getElementsByClassNameUnchecked,+        js_hasFocus, hasFocus, hasFocus_, js_querySelector, querySelector,+        querySelector_, querySelectorUnsafe, querySelectorUnchecked,+        js_querySelectorAll, querySelectorAll, querySelectorAll_,+        querySelectorAllUnsafe, querySelectorAllUnchecked,         js_webkitCancelFullScreen, webkitCancelFullScreen,         js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,         exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,-        webkitGetNamedFlows_, webkitGetNamedFlowsUnchecked, js_createTouch,-        createTouch, createTouch_, createTouchUnchecked,+        webkitGetNamedFlows_, webkitGetNamedFlowsUnsafe,+        webkitGetNamedFlowsUnchecked, js_createTouch, createTouch,+        createTouch_, createTouchUnsafe, createTouchUnchecked,         js_createTouchList, createTouchList, createTouchList_,-        createTouchListUnchecked, js_getDoctype, getDoctype,-        getDoctypeUnchecked, js_getImplementation, getImplementation,+        createTouchListUnsafe, createTouchListUnchecked, js_getDoctype,+        getDoctype, getDoctypeUnsafe, getDoctypeUnchecked,+        js_getImplementation, getImplementation, getImplementationUnsafe,         getImplementationUnchecked, js_getDocumentElement,-        getDocumentElement, getDocumentElementUnchecked,-        js_getInputEncoding, getInputEncoding, getInputEncodingUnchecked,-        js_getXmlEncoding, getXmlEncoding, getXmlEncodingUnchecked,-        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,+        getDocumentElement, getDocumentElementUnsafe,+        getDocumentElementUnchecked, js_getInputEncoding, getInputEncoding,+        getInputEncodingUnsafe, getInputEncodingUnchecked,+        js_getXmlEncoding, getXmlEncoding, getXmlEncodingUnsafe,+        getXmlEncodingUnchecked, js_setXmlVersion, setXmlVersion,+        js_getXmlVersion, getXmlVersion, getXmlVersionUnsafe,         getXmlVersionUnchecked, js_setXmlStandalone, setXmlStandalone,         js_getXmlStandalone, getXmlStandalone, js_getDocumentURI,-        getDocumentURI, getDocumentURIUnchecked, js_getDefaultView,-        getDefaultView, getDefaultViewUnchecked, js_getStyleSheets,-        getStyleSheets, getStyleSheetsUnchecked, js_getContentType,+        getDocumentURI, getDocumentURIUnsafe, getDocumentURIUnchecked,+        js_getDefaultView, getDefaultView, getDefaultViewUnsafe,+        getDefaultViewUnchecked, js_getStyleSheets, getStyleSheets,+        getStyleSheetsUnsafe, getStyleSheetsUnchecked, js_getContentType,         getContentType, js_setTitle, setTitle, js_getTitle, getTitle,-        getTitleUnchecked, js_getReferrer, getReferrer, js_setDomain,-        setDomain, js_getDomain, getDomain, getDomainUnchecked, js_getURL,-        getURL, js_setCookie, setCookie, js_getCookie, getCookie,-        getCookieUnchecked, js_setBody, setBody, js_getBody, getBody,-        getBodyUnchecked, js_getHead, getHead, getHeadUnchecked,-        js_getImages, getImages, getImagesUnchecked, js_getApplets,-        getApplets, getAppletsUnchecked, js_getLinks, getLinks,-        getLinksUnchecked, js_getForms, getForms, getFormsUnchecked,-        js_getAnchors, getAnchors, getAnchorsUnchecked, js_getLastModified,-        getLastModified, js_setLocation, setLocation, js_getLocation,-        getLocation, getLocationUnchecked, js_setCharset, setCharset,-        js_getCharset, getCharset, getCharsetUnchecked,-        js_getDefaultCharset, getDefaultCharset,+        getTitleUnsafe, getTitleUnchecked, js_getReferrer, getReferrer,+        js_setDomain, setDomain, js_getDomain, getDomain, getDomainUnsafe,+        getDomainUnchecked, js_getURL, getURL, js_setCookie, setCookie,+        js_getCookie, getCookie, getCookieUnsafe, getCookieUnchecked,+        js_setBody, setBody, js_getBody, getBody, getBodyUnsafe,+        getBodyUnchecked, js_getHead, getHead, getHeadUnsafe,+        getHeadUnchecked, js_getImages, getImages, getImagesUnsafe,+        getImagesUnchecked, js_getApplets, getApplets, getAppletsUnsafe,+        getAppletsUnchecked, js_getLinks, getLinks, getLinksUnsafe,+        getLinksUnchecked, js_getForms, getForms, getFormsUnsafe,+        getFormsUnchecked, js_getAnchors, getAnchors, getAnchorsUnsafe,+        getAnchorsUnchecked, js_getLastModified, getLastModified,+        js_setLocation, setLocation, js_getLocation, getLocation,+        getLocationUnsafe, getLocationUnchecked, js_setCharset, setCharset,+        js_getCharset, getCharset, getCharsetUnsafe, getCharsetUnchecked,+        js_getDefaultCharset, getDefaultCharset, getDefaultCharsetUnsafe,         getDefaultCharsetUnchecked, js_getReadyState, getReadyState,-        getReadyStateUnchecked, js_getCharacterSet, getCharacterSet,-        getCharacterSetUnchecked, js_getPreferredStylesheetSet,-        getPreferredStylesheetSet, getPreferredStylesheetSetUnchecked,-        js_setSelectedStylesheetSet, setSelectedStylesheetSet,-        js_getSelectedStylesheetSet, getSelectedStylesheetSet,+        getReadyStateUnsafe, getReadyStateUnchecked, js_getCharacterSet,+        getCharacterSet, getCharacterSetUnsafe, getCharacterSetUnchecked,+        js_getPreferredStylesheetSet, getPreferredStylesheetSet,+        getPreferredStylesheetSetUnsafe,+        getPreferredStylesheetSetUnchecked, js_setSelectedStylesheetSet,+        setSelectedStylesheetSet, js_getSelectedStylesheetSet,+        getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe,         getSelectedStylesheetSetUnchecked, js_getActiveElement,-        getActiveElement, getActiveElementUnchecked, js_getCompatMode,-        getCompatMode, js_getWebkitIsFullScreen, getWebkitIsFullScreen,+        getActiveElement, getActiveElementUnsafe,+        getActiveElementUnchecked, js_getCompatMode, getCompatMode,+        js_getWebkitIsFullScreen, getWebkitIsFullScreen,         js_getWebkitFullScreenKeyboardInputAllowed,         getWebkitFullScreenKeyboardInputAllowed,         js_getWebkitCurrentFullScreenElement,         getWebkitCurrentFullScreenElement,+        getWebkitCurrentFullScreenElementUnsafe,         getWebkitCurrentFullScreenElementUnchecked,         js_getWebkitFullscreenEnabled, getWebkitFullscreenEnabled,         js_getWebkitFullscreenElement, getWebkitFullscreenElement,+        getWebkitFullscreenElementUnsafe,         getWebkitFullscreenElementUnchecked, js_getPointerLockElement,-        getPointerLockElement, getPointerLockElementUnchecked, js_getFonts,-        getFonts, getFontsUnchecked, abort, blur, change, click,+        getPointerLockElement, getPointerLockElementUnsafe,+        getPointerLockElementUnchecked, js_getFonts, getFonts,+        getFontsUnsafe, getFontsUnchecked, abort, blur, change, click,         contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,         dragOver, dragStart, drop, error, focus, input, invalid, keyDown,         keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,@@ -115,12 +147,13 @@         pointerlockerror, securitypolicyviolation, webKitWillRevealBottom,         webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,         js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,-        js_getSecurityPolicy, getSecurityPolicy,+        js_getSecurityPolicy, getSecurityPolicy, getSecurityPolicyUnsafe,         getSecurityPolicyUnchecked, js_getCurrentScript, getCurrentScript,-        getCurrentScriptUnchecked, js_getOrigin, getOrigin, Document,-        castToDocument, gTypeDocument, IsDocument, toDocument)+        getCurrentScriptUnsafe, getCurrentScriptUnchecked, js_getOrigin,+        getOrigin, Document(..), gTypeDocument, IsDocument, toDocument)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -136,6 +169,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"Document\"]()"         js_newDocument :: IO Document@@ -167,6 +210,16 @@          (js_createElement (toDocument self) (toMaybeJSString tagName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElementUnsafe ::+                    (MonadIO m, IsDocument self, ToJSString tagName, HasCallStack) =>+                      self -> Maybe tagName -> m Element+createElementUnsafe self tagName+  = liftIO+      ((nullableToMaybe <$>+          (js_createElement (toDocument self) (toMaybeJSString tagName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation>  createElementUnchecked ::                        (MonadIO m, IsDocument self, ToJSString tagName) =>                          self -> Maybe tagName -> m Element@@ -193,6 +246,16 @@   = liftIO (void (js_createDocumentFragment (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragmentUnsafe ::+                             (MonadIO m, IsDocument self, HasCallStack) =>+                               self -> m DocumentFragment+createDocumentFragmentUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_createDocumentFragment (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation>  createDocumentFragmentUnchecked ::                                 (MonadIO m, IsDocument self) => self -> m DocumentFragment createDocumentFragmentUnchecked self@@ -221,6 +284,16 @@       (void (js_createTextNode (toDocument self) (toJSString data')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNodeUnsafe ::+                     (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>+                       self -> data' -> m Text+createTextNodeUnsafe self data'+  = liftIO+      ((nullableToMaybe <$>+          (js_createTextNode (toDocument self) (toJSString data')))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation>  createTextNodeUnchecked ::                         (MonadIO m, IsDocument self, ToJSString data') =>                           self -> data' -> m Text@@ -250,6 +323,16 @@       (void (js_createComment (toDocument self) (toJSString data')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createCommentUnsafe ::+                    (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>+                      self -> data' -> m Comment+createCommentUnsafe self data'+  = liftIO+      ((nullableToMaybe <$>+          (js_createComment (toDocument self) (toJSString data')))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation>  createCommentUnchecked ::                        (MonadIO m, IsDocument self, ToJSString data') =>                          self -> data' -> m Comment@@ -280,6 +363,16 @@       (void (js_createCDATASection (toDocument self) (toJSString data')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASectionUnsafe ::+                         (MonadIO m, IsDocument self, ToJSString data', HasCallStack) =>+                           self -> data' -> m CDATASection+createCDATASectionUnsafe self data'+  = liftIO+      ((nullableToMaybe <$>+          (js_createCDATASection (toDocument self) (toJSString data')))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation>  createCDATASectionUnchecked ::                             (MonadIO m, IsDocument self, ToJSString data') =>                               self -> data' -> m CDATASection@@ -319,6 +412,19 @@             (toJSString data')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstructionUnsafe ::+                                  (MonadIO m, IsDocument self, ToJSString target, ToJSString data',+                                   HasCallStack) =>+                                    self -> target -> data' -> m ProcessingInstruction+createProcessingInstructionUnsafe self target data'+  = liftIO+      ((nullableToMaybe <$>+          (js_createProcessingInstruction (toDocument self)+             (toJSString target)+             (toJSString data')))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation>  createProcessingInstructionUnchecked ::                                      (MonadIO m, IsDocument self, ToJSString target,                                       ToJSString data') =>@@ -351,6 +457,16 @@       (void (js_createAttribute (toDocument self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttributeUnsafe ::+                      (MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>+                        self -> name -> m Attr+createAttributeUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_createAttribute (toDocument self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation>  createAttributeUnchecked ::                          (MonadIO m, IsDocument self, ToJSString name) =>                            self -> name -> m Attr@@ -382,6 +498,16 @@          (js_createEntityReference (toDocument self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReferenceUnsafe ::+                            (MonadIO m, IsDocument self, ToJSString name, HasCallStack) =>+                              self -> name -> m EntityReference+createEntityReferenceUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_createEntityReference (toDocument self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation>  createEntityReferenceUnchecked ::                                (MonadIO m, IsDocument self, ToJSString name) =>                                  self -> name -> m EntityReference@@ -413,6 +539,16 @@          (js_getElementsByTagName (toDocument self) (toJSString tagname)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagNameUnsafe ::+                           (MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>+                             self -> tagname -> m NodeList+getElementsByTagNameUnsafe self tagname+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByTagName (toDocument self) (toJSString tagname)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation>  getElementsByTagNameUnchecked ::                               (MonadIO m, IsDocument self, ToJSString tagname) =>                                 self -> tagname -> m NodeList@@ -448,6 +584,18 @@             deep))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNodeUnsafe ::+                 (MonadIO m, IsDocument self, IsNode importedNode, HasCallStack) =>+                   self -> Maybe importedNode -> Bool -> m Node+importNodeUnsafe self importedNode deep+  = liftIO+      ((nullableToMaybe <$>+          (js_importNode (toDocument self)+             (maybeToNullable (fmap toNode importedNode))+             deep))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation>  importNodeUnchecked ::                     (MonadIO m, IsDocument self, IsNode importedNode) =>                       self -> Maybe importedNode -> Bool -> m Node@@ -489,6 +637,19 @@             (toMaybeJSString qualifiedName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNSUnsafe ::+                      (MonadIO m, IsDocument self, ToJSString namespaceURI,+                       ToJSString qualifiedName, HasCallStack) =>+                        self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element+createElementNSUnsafe self namespaceURI qualifiedName+  = liftIO+      ((nullableToMaybe <$>+          (js_createElementNS (toDocument self)+             (toMaybeJSString namespaceURI)+             (toMaybeJSString qualifiedName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation>  createElementNSUnchecked ::                          (MonadIO m, IsDocument self, ToJSString namespaceURI,                           ToJSString qualifiedName) =>@@ -530,6 +691,19 @@             (toMaybeJSString qualifiedName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNSUnsafe ::+                        (MonadIO m, IsDocument self, ToJSString namespaceURI,+                         ToJSString qualifiedName, HasCallStack) =>+                          self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr+createAttributeNSUnsafe self namespaceURI qualifiedName+  = liftIO+      ((nullableToMaybe <$>+          (js_createAttributeNS (toDocument self)+             (toMaybeJSString namespaceURI)+             (toMaybeJSString qualifiedName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation>  createAttributeNSUnchecked ::                            (MonadIO m, IsDocument self, ToJSString namespaceURI,                             ToJSString qualifiedName) =>@@ -571,6 +745,19 @@             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNSUnsafe ::+                             (MonadIO m, IsDocument self, ToJSString namespaceURI,+                              ToJSString localName, HasCallStack) =>+                               self -> Maybe namespaceURI -> localName -> m NodeList+getElementsByTagNameNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByTagNameNS (toDocument self)+             (toMaybeJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation>  getElementsByTagNameNSUnchecked ::                                 (MonadIO m, IsDocument self, ToJSString namespaceURI,                                  ToJSString localName) =>@@ -603,6 +790,16 @@       (void (js_getElementById (toDocument self) (toJSString elementId)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementByIdUnsafe ::+                     (MonadIO m, IsDocument self, ToJSString elementId, HasCallStack) =>+                       self -> elementId -> m Element+getElementByIdUnsafe self elementId+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementById (toDocument self) (toJSString elementId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation>  getElementByIdUnchecked ::                         (MonadIO m, IsDocument self, ToJSString elementId) =>                           self -> elementId -> m Element@@ -635,6 +832,17 @@             (maybeToNullable (fmap toNode source))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNodeUnsafe ::+                (MonadIO m, IsDocument self, IsNode source, HasCallStack) =>+                  self -> Maybe source -> m Node+adoptNodeUnsafe self source+  = liftIO+      ((nullableToMaybe <$>+          (js_adoptNode (toDocument self)+             (maybeToNullable (fmap toNode source))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation>  adoptNodeUnchecked ::                    (MonadIO m, IsDocument self, IsNode source) =>                      self -> Maybe source -> m Node@@ -665,6 +873,16 @@       (void (js_createEvent (toDocument self) (toJSString eventType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEventUnsafe ::+                  (MonadIO m, IsDocument self, ToJSString eventType, HasCallStack) =>+                    self -> eventType -> m Event+createEventUnsafe self eventType+  = liftIO+      ((nullableToMaybe <$>+          (js_createEvent (toDocument self) (toJSString eventType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation>  createEventUnchecked ::                      (MonadIO m, IsDocument self, ToJSString eventType) =>                        self -> eventType -> m Event@@ -688,6 +906,14 @@   = liftIO (void (js_createRange (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRangeUnsafe ::+                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Range+createRangeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createRange (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation>  createRangeUnchecked ::                      (MonadIO m, IsDocument self) => self -> m Range createRangeUnchecked self@@ -732,6 +958,22 @@             expandEntityReferences))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIteratorUnsafe ::+                         (MonadIO m, IsDocument self, IsNode root, HasCallStack) =>+                           self ->+                             Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator+createNodeIteratorUnsafe self root whatToShow filter+  expandEntityReferences+  = liftIO+      ((nullableToMaybe <$>+          (js_createNodeIterator (toDocument self)+             (maybeToNullable (fmap toNode root))+             whatToShow+             (maybeToNullable filter)+             expandEntityReferences))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation>  createNodeIteratorUnchecked ::                             (MonadIO m, IsDocument self, IsNode root) =>                               self ->@@ -782,6 +1024,22 @@             expandEntityReferences))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalkerUnsafe ::+                       (MonadIO m, IsDocument self, IsNode root, HasCallStack) =>+                         self ->+                           Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker+createTreeWalkerUnsafe self root whatToShow filter+  expandEntityReferences+  = liftIO+      ((nullableToMaybe <$>+          (js_createTreeWalker (toDocument self)+             (maybeToNullable (fmap toNode root))+             whatToShow+             (maybeToNullable filter)+             expandEntityReferences))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation>  createTreeWalkerUnchecked ::                           (MonadIO m, IsDocument self, IsNode root) =>                             self ->@@ -827,6 +1085,19 @@             (toJSString pseudoElement)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyleUnsafe ::+                       (MonadIO m, IsDocument self, IsElement element,+                        ToJSString pseudoElement, HasCallStack) =>+                         self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration+getOverrideStyleUnsafe self element pseudoElement+  = liftIO+      ((nullableToMaybe <$>+          (js_getOverrideStyle (toDocument self)+             (maybeToNullable (fmap toElement element))+             (toJSString pseudoElement)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation>  getOverrideStyleUnchecked ::                           (MonadIO m, IsDocument self, IsElement element,                            ToJSString pseudoElement) =>@@ -866,6 +1137,18 @@             (maybeToNullable resolver)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpressionUnsafe ::+                       (MonadIO m, IsDocument self, ToJSString expression,+                        HasCallStack) =>+                         self -> expression -> Maybe XPathNSResolver -> m XPathExpression+createExpressionUnsafe self expression resolver+  = liftIO+      ((nullableToMaybe <$>+          (js_createExpression (toDocument self) (toJSString expression)+             (maybeToNullable resolver)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation>  createExpressionUnchecked ::                           (MonadIO m, IsDocument self, ToJSString expression) =>                             self -> expression -> Maybe XPathNSResolver -> m XPathExpression@@ -900,6 +1183,17 @@             (maybeToNullable (fmap toNode nodeResolver))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolverUnsafe ::+                       (MonadIO m, IsDocument self, IsNode nodeResolver, HasCallStack) =>+                         self -> Maybe nodeResolver -> m XPathNSResolver+createNSResolverUnsafe self nodeResolver+  = liftIO+      ((nullableToMaybe <$>+          (js_createNSResolver (toDocument self)+             (maybeToNullable (fmap toNode nodeResolver))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation>  createNSResolverUnchecked ::                           (MonadIO m, IsDocument self, IsNode nodeResolver) =>                             self -> Maybe nodeResolver -> m XPathNSResolver@@ -953,6 +1247,24 @@             (maybeToNullable inResult)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluateUnsafe ::+               (MonadIO m, IsDocument self, ToJSString expression,+                IsNode contextNode, HasCallStack) =>+                 self ->+                   expression ->+                     Maybe contextNode ->+                       Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult+evaluateUnsafe self expression contextNode resolver type' inResult+  = liftIO+      ((nullableToMaybe <$>+          (js_evaluate (toDocument self) (toJSString expression)+             (maybeToNullable (fmap toNode contextNode))+             (maybeToNullable resolver)+             type'+             (maybeToNullable inResult)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation>  evaluateUnchecked ::                   (MonadIO m, IsDocument self, ToJSString expression,                    IsNode contextNode) =>@@ -1126,6 +1438,17 @@          (js_getElementsByName (toDocument self) (toJSString elementName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByNameUnsafe ::+                        (MonadIO m, IsDocument self, ToJSString elementName,+                         HasCallStack) =>+                          self -> elementName -> m NodeList+getElementsByNameUnsafe self elementName+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByName (toDocument self) (toJSString elementName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation>  getElementsByNameUnchecked ::                            (MonadIO m, IsDocument self, ToJSString elementName) =>                              self -> elementName -> m NodeList@@ -1153,6 +1476,15 @@   = liftIO (void (js_elementFromPoint (toDocument self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPointUnsafe ::+                       (MonadIO m, IsDocument self, HasCallStack) =>+                         self -> Int -> Int -> m Element+elementFromPointUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation>  elementFromPointUnchecked ::                           (MonadIO m, IsDocument self) => self -> Int -> Int -> m Element elementFromPointUnchecked self x y@@ -1180,6 +1512,16 @@   = liftIO (void (js_caretRangeFromPoint (toDocument self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPointUnsafe ::+                          (MonadIO m, IsDocument self, HasCallStack) =>+                            self -> Int -> Int -> m Range+caretRangeFromPointUnsafe self x y+  = liftIO+      ((nullableToMaybe <$>+          (js_caretRangeFromPoint (toDocument self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation>  caretRangeFromPointUnchecked ::                              (MonadIO m, IsDocument self) => self -> Int -> Int -> m Range caretRangeFromPointUnchecked self x y@@ -1202,6 +1544,14 @@   = liftIO (void (js_getSelection (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelectionUnsafe ::+                   (MonadIO m, IsDocument self, HasCallStack) => self -> m Selection+getSelectionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSelection (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation>  getSelectionUnchecked ::                       (MonadIO m, IsDocument self) => self -> m Selection getSelectionUnchecked self@@ -1244,6 +1594,20 @@             height))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContextUnsafe ::+                          (MonadIO m, IsDocument self, ToJSString contextId, ToJSString name,+                           HasCallStack) =>+                            self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext+getCSSCanvasContextUnsafe self contextId name width height+  = liftIO+      ((nullableToMaybe <$>+          (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+             (toJSString name)+             width+             height))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation>  getCSSCanvasContextUnchecked ::                              (MonadIO m, IsDocument self, ToJSString contextId,                               ToJSString name) =>@@ -1279,6 +1643,16 @@          (js_getElementsByClassName (toDocument self) (toJSString tagname)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassNameUnsafe ::+                             (MonadIO m, IsDocument self, ToJSString tagname, HasCallStack) =>+                               self -> tagname -> m NodeList+getElementsByClassNameUnsafe self tagname+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByClassName (toDocument self) (toJSString tagname)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation>  getElementsByClassNameUnchecked ::                                 (MonadIO m, IsDocument self, ToJSString tagname) =>                                   self -> tagname -> m NodeList@@ -1319,6 +1693,16 @@       (void (js_querySelector (toDocument self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelectorUnsafe ::+                    (MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>+                      self -> selectors -> m Element+querySelectorUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelector (toDocument self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation>  querySelectorUnchecked ::                        (MonadIO m, IsDocument self, ToJSString selectors) =>                          self -> selectors -> m Element@@ -1350,6 +1734,16 @@          (js_querySelectorAll (toDocument self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAllUnsafe ::+                       (MonadIO m, IsDocument self, ToJSString selectors, HasCallStack) =>+                         self -> selectors -> m NodeList+querySelectorAllUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelectorAll (toDocument self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation>  querySelectorAllUnchecked ::                           (MonadIO m, IsDocument self, ToJSString selectors) =>                             self -> selectors -> m NodeList@@ -1403,6 +1797,15 @@   = liftIO (void (js_webkitGetNamedFlows (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlowsUnsafe ::+                          (MonadIO m, IsDocument self, HasCallStack) =>+                            self -> m DOMNamedFlowCollection+webkitGetNamedFlowsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation>  webkitGetNamedFlowsUnchecked ::                              (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection webkitGetNamedFlowsUnchecked self@@ -1472,6 +1875,31 @@             webkitForce))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouchUnsafe ::+                  (MonadIO m, IsDocument self, IsEventTarget target, HasCallStack) =>+                    self ->+                      Maybe Window ->+                        Maybe target ->+                          Int ->+                            Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch+createTouchUnsafe self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftIO+      ((nullableToMaybe <$>+          (js_createTouch (toDocument self) (maybeToNullable window)+             (maybeToNullable (fmap toEventTarget target))+             identifier+             pageX+             pageY+             screenX+             screenY+             webkitRadiusX+             webkitRadiusY+             webkitRotationAngle+             webkitForce))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation>  createTouchUnchecked ::                      (MonadIO m, IsDocument self, IsEventTarget target) =>                        self ->@@ -1512,6 +1940,14 @@   = liftIO (void (js_createTouchList (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchListUnsafe ::+                      (MonadIO m, IsDocument self, HasCallStack) => self -> m TouchList+createTouchListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createTouchList (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation>  createTouchListUnchecked ::                          (MonadIO m, IsDocument self) => self -> m TouchList createTouchListUnchecked self@@ -1529,6 +1965,15 @@   = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctypeUnsafe ::+                 (MonadIO m, IsDocument self, HasCallStack) =>+                   self -> m DocumentType+getDoctypeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDoctype (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation>  getDoctypeUnchecked ::                     (MonadIO m, IsDocument self) => self -> m DocumentType getDoctypeUnchecked self@@ -1546,6 +1991,15 @@       (nullableToMaybe <$> (js_getImplementation (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementationUnsafe ::+                        (MonadIO m, IsDocument self, HasCallStack) =>+                          self -> m DOMImplementation+getImplementationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getImplementation (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation>  getImplementationUnchecked ::                            (MonadIO m, IsDocument self) => self -> m DOMImplementation getImplementationUnchecked self@@ -1564,6 +2018,14 @@       (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElementUnsafe ::+                         (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getDocumentElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDocumentElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation>  getDocumentElementUnchecked ::                             (MonadIO m, IsDocument self) => self -> m Element getDocumentElementUnchecked self@@ -1583,6 +2045,15 @@       (fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncodingUnsafe ::+                       (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                         self -> m result+getInputEncodingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation>  getInputEncodingUnchecked ::                           (MonadIO m, IsDocument self, FromJSString result) =>                             self -> m result@@ -1603,6 +2074,15 @@       (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncodingUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                       self -> m result+getXmlEncodingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation>  getXmlEncodingUnchecked ::                         (MonadIO m, IsDocument self, FromJSString result) =>                           self -> m result@@ -1633,6 +2113,15 @@       (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersionUnsafe ::+                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                      self -> m result+getXmlVersionUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation>  getXmlVersionUnchecked ::                        (MonadIO m, IsDocument self, FromJSString result) =>                          self -> m result@@ -1670,6 +2159,15 @@       (fromMaybeJSString <$> (js_getDocumentURI (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURIUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                       self -> m result+getDocumentURIUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDocumentURI (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation>  getDocumentURIUnchecked ::                         (MonadIO m, IsDocument self, FromJSString result) =>                           self -> m result@@ -1689,6 +2187,14 @@       (nullableToMaybe <$> (js_getDefaultView (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultViewUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack) => self -> m Window+getDefaultViewUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDefaultView (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation>  getDefaultViewUnchecked ::                         (MonadIO m, IsDocument self) => self -> m Window getDefaultViewUnchecked self@@ -1707,6 +2213,15 @@       (nullableToMaybe <$> (js_getStyleSheets (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheetsUnsafe ::+                     (MonadIO m, IsDocument self, HasCallStack) =>+                       self -> m StyleSheetList+getStyleSheetsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyleSheets (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation>  getStyleSheetsUnchecked ::                         (MonadIO m, IsDocument self) => self -> m StyleSheetList getStyleSheetsUnchecked self@@ -1745,6 +2260,15 @@   = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitleUnsafe ::+               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                 self -> m result+getTitleUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getTitle (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation>  getTitleUnchecked ::                   (MonadIO m, IsDocument self, FromJSString result) =>                     self -> m result@@ -1783,6 +2307,15 @@   = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomainUnsafe ::+                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                  self -> m result+getDomainUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDomain (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation>  getDomainUnchecked ::                    (MonadIO m, IsDocument self, FromJSString result) =>                      self -> m result@@ -1821,6 +2354,15 @@   = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookieUnsafe ::+                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                  self -> m result+getCookieUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCookie (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation>  getCookieUnchecked ::                    (MonadIO m, IsDocument self, FromJSString result) =>                      self -> m result@@ -1850,6 +2392,14 @@   = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBodyUnsafe ::+              (MonadIO m, IsDocument self, HasCallStack) => self -> m HTMLElement+getBodyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBody (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation>  getBodyUnchecked ::                  (MonadIO m, IsDocument self) => self -> m HTMLElement getBodyUnchecked self@@ -1866,6 +2416,15 @@   = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHeadUnsafe ::+              (MonadIO m, IsDocument self, HasCallStack) =>+                self -> m HTMLHeadElement+getHeadUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHead (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation>  getHeadUnchecked ::                  (MonadIO m, IsDocument self) => self -> m HTMLHeadElement getHeadUnchecked self@@ -1882,6 +2441,15 @@   = liftIO (nullableToMaybe <$> (js_getImages (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImagesUnsafe ::+                (MonadIO m, IsDocument self, HasCallStack) =>+                  self -> m HTMLCollection+getImagesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getImages (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation>  getImagesUnchecked ::                    (MonadIO m, IsDocument self) => self -> m HTMLCollection getImagesUnchecked self@@ -1898,6 +2466,15 @@   = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getAppletsUnsafe ::+                 (MonadIO m, IsDocument self, HasCallStack) =>+                   self -> m HTMLCollection+getAppletsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getApplets (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation>  getAppletsUnchecked ::                     (MonadIO m, IsDocument self) => self -> m HTMLCollection getAppletsUnchecked self@@ -1914,6 +2491,15 @@   = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinksUnsafe ::+               (MonadIO m, IsDocument self, HasCallStack) =>+                 self -> m HTMLCollection+getLinksUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLinks (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation>  getLinksUnchecked ::                   (MonadIO m, IsDocument self) => self -> m HTMLCollection getLinksUnchecked self@@ -1930,6 +2516,15 @@   = liftIO (nullableToMaybe <$> (js_getForms (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getFormsUnsafe ::+               (MonadIO m, IsDocument self, HasCallStack) =>+                 self -> m HTMLCollection+getFormsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForms (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation>  getFormsUnchecked ::                   (MonadIO m, IsDocument self) => self -> m HTMLCollection getFormsUnchecked self@@ -1946,6 +2541,15 @@   = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchorsUnsafe ::+                 (MonadIO m, IsDocument self, HasCallStack) =>+                   self -> m HTMLCollection+getAnchorsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnchors (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation>  getAnchorsUnchecked ::                     (MonadIO m, IsDocument self) => self -> m HTMLCollection getAnchorsUnchecked self@@ -1981,6 +2585,14 @@   = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocationUnsafe ::+                  (MonadIO m, IsDocument self, HasCallStack) => self -> m Location+getLocationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLocation (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation>  getLocationUnchecked ::                      (MonadIO m, IsDocument self) => self -> m Location getLocationUnchecked self@@ -2008,6 +2620,15 @@   = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharsetUnsafe ::+                 (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                   self -> m result+getCharsetUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCharset (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation>  getCharsetUnchecked ::                     (MonadIO m, IsDocument self, FromJSString result) =>                       self -> m result@@ -2028,6 +2649,15 @@       (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> +getDefaultCharsetUnsafe ::+                        (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                          self -> m result+getDefaultCharsetUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation>  getDefaultCharsetUnchecked ::                            (MonadIO m, IsDocument self, FromJSString result) =>                              self -> m result@@ -2048,6 +2678,15 @@       (fromMaybeJSString <$> (js_getReadyState (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> +getReadyStateUnsafe ::+                    (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                      self -> m result+getReadyStateUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getReadyState (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation>  getReadyStateUnchecked ::                        (MonadIO m, IsDocument self, FromJSString result) =>                          self -> m result@@ -2068,6 +2707,15 @@       (fromMaybeJSString <$> (js_getCharacterSet (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSetUnsafe ::+                      (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                        self -> m result+getCharacterSetUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getCharacterSet (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation>  getCharacterSetUnchecked ::                          (MonadIO m, IsDocument self, FromJSString result) =>                            self -> m result@@ -2089,6 +2737,16 @@          (js_getPreferredStylesheetSet (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSetUnsafe ::+                                (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                                  self -> m result+getPreferredStylesheetSetUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getPreferredStylesheetSet (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation>  getPreferredStylesheetSetUnchecked ::                                    (MonadIO m, IsDocument self, FromJSString result) =>                                      self -> m result@@ -2123,6 +2781,16 @@          (js_getSelectedStylesheetSet (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSetUnsafe ::+                               (MonadIO m, IsDocument self, HasCallStack, FromJSString result) =>+                                 self -> m result+getSelectedStylesheetSetUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getSelectedStylesheetSet (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation>  getSelectedStylesheetSetUnchecked ::                                   (MonadIO m, IsDocument self, FromJSString result) =>                                     self -> m result@@ -2142,6 +2810,14 @@       (nullableToMaybe <$> (js_getActiveElement (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> +getActiveElementUnsafe ::+                       (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getActiveElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getActiveElement (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation>  getActiveElementUnchecked ::                           (MonadIO m, IsDocument self) => self -> m Element getActiveElementUnchecked self@@ -2194,6 +2870,16 @@          (js_getWebkitCurrentFullScreenElement (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElementUnsafe ::+                                        (MonadIO m, IsDocument self, HasCallStack) =>+                                          self -> m Element+getWebkitCurrentFullScreenElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getWebkitCurrentFullScreenElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation>  getWebkitCurrentFullScreenElementUnchecked ::                                            (MonadIO m, IsDocument self) => self -> m Element getWebkitCurrentFullScreenElementUnchecked self@@ -2223,6 +2909,15 @@          (js_getWebkitFullscreenElement (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElementUnsafe ::+                                 (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getWebkitFullscreenElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getWebkitFullscreenElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation>  getWebkitFullscreenElementUnchecked ::                                     (MonadIO m, IsDocument self) => self -> m Element getWebkitFullscreenElementUnchecked self@@ -2241,6 +2936,14 @@       (nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> +getPointerLockElementUnsafe ::+                            (MonadIO m, IsDocument self, HasCallStack) => self -> m Element+getPointerLockElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation>  getPointerLockElementUnchecked ::                                (MonadIO m, IsDocument self) => self -> m Element getPointerLockElementUnchecked self@@ -2258,6 +2961,14 @@   = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFontsUnsafe ::+               (MonadIO m, IsDocument self, HasCallStack) => self -> m FontLoader+getFontsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFonts (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation>  getFontsUnchecked ::                   (MonadIO m, IsDocument self) => self -> m FontLoader getFontsUnchecked self@@ -2591,6 +3302,15 @@       (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> +getSecurityPolicyUnsafe ::+                        (MonadIO m, IsDocument self, HasCallStack) =>+                          self -> m SecurityPolicy+getSecurityPolicyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSecurityPolicy (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation>  getSecurityPolicyUnchecked ::                            (MonadIO m, IsDocument self) => self -> m SecurityPolicy getSecurityPolicyUnchecked self@@ -2607,6 +3327,15 @@ getCurrentScript self   = liftIO       (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScriptUnsafe ::+                       (MonadIO m, IsDocument self, HasCallStack) =>+                         self -> m HTMLScriptElement+getCurrentScriptUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCurrentScript (toDocument self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation>  getCurrentScriptUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -1,12 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DocumentFragment        (js_newDocumentFragment, newDocumentFragment, js_querySelector,-        querySelector, querySelector_, querySelectorUnchecked,-        js_querySelectorAll, querySelectorAll, querySelectorAll_,-        querySelectorAllUnchecked, DocumentFragment,-        castToDocumentFragment, gTypeDocumentFragment)+        querySelector, querySelector_, querySelectorUnsafe,+        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,+        querySelectorAll_, querySelectorAllUnsafe,+        querySelectorAllUnchecked, DocumentFragment(..),+        gTypeDocumentFragment)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"DocumentFragment\"]()" js_newDocumentFragment ::@@ -52,6 +69,16 @@   = liftIO (void (js_querySelector (self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> +querySelectorUnsafe ::+                    (MonadIO m, ToJSString selectors, HasCallStack) =>+                      DocumentFragment -> selectors -> m Element+querySelectorUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelector (self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation>  querySelectorUnchecked ::                        (MonadIO m, ToJSString selectors) =>                          DocumentFragment -> selectors -> m Element@@ -79,6 +106,16 @@                     DocumentFragment -> selectors -> m () querySelectorAll_ self selectors   = liftIO (void (js_querySelectorAll (self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> +querySelectorAllUnsafe ::+                       (MonadIO m, ToJSString selectors, HasCallStack) =>+                         DocumentFragment -> selectors -> m NodeList+querySelectorAllUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelectorAll (self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation>  querySelectorAllUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DocumentType        (js_getName, getName, js_getEntities, getEntities,-        getEntitiesUnchecked, js_getNotations, getNotations,-        getNotationsUnchecked, js_getPublicId, getPublicId,+        getEntitiesUnsafe, getEntitiesUnchecked, js_getNotations,+        getNotations, getNotationsUnsafe, getNotationsUnchecked,+        js_getPublicId, getPublicId, getPublicIdUnsafe,         getPublicIdUnchecked, js_getSystemId, getSystemId,-        getSystemIdUnchecked, js_getInternalSubset, getInternalSubset,-        getInternalSubsetUnchecked, DocumentType, castToDocumentType,-        gTypeDocumentType)+        getSystemIdUnsafe, getSystemIdUnchecked, js_getInternalSubset,+        getInternalSubset, getInternalSubsetUnsafe,+        getInternalSubsetUnchecked, DocumentType(..), gTypeDocumentType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         DocumentType -> IO JSString@@ -43,6 +60,14 @@   = liftIO (nullableToMaybe <$> (js_getEntities (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> +getEntitiesUnsafe ::+                  (MonadIO m, HasCallStack) => DocumentType -> m NamedNodeMap+getEntitiesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEntities (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation>  getEntitiesUnchecked ::                      (MonadIO m) => DocumentType -> m NamedNodeMap getEntitiesUnchecked self@@ -58,6 +83,14 @@   = liftIO (nullableToMaybe <$> (js_getNotations (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> +getNotationsUnsafe ::+                   (MonadIO m, HasCallStack) => DocumentType -> m NamedNodeMap+getNotationsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNotations (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation>  getNotationsUnchecked ::                       (MonadIO m) => DocumentType -> m NamedNodeMap getNotationsUnchecked self@@ -74,6 +107,15 @@   = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> +getPublicIdUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    DocumentType -> m result+getPublicIdUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPublicId (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation>  getPublicIdUnchecked ::                      (MonadIO m, FromJSString result) => DocumentType -> m result getPublicIdUnchecked self@@ -90,6 +132,15 @@   = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> +getSystemIdUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    DocumentType -> m result+getSystemIdUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSystemId (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation>  getSystemIdUnchecked ::                      (MonadIO m, FromJSString result) => DocumentType -> m result getSystemIdUnchecked self@@ -104,6 +155,15 @@                     DocumentType -> m (Maybe result) getInternalSubset self   = liftIO (fromMaybeJSString <$> (js_getInternalSubset (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> +getInternalSubsetUnsafe ::+                        (MonadIO m, HasCallStack, FromJSString result) =>+                          DocumentType -> m result+getInternalSubsetUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getInternalSubset (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation>  getInternalSubsetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode-       (js_getThreshold, getThreshold, getThresholdUnchecked, js_getKnee,-        getKnee, getKneeUnchecked, js_getRatio, getRatio,+       (js_getThreshold, getThreshold, getThresholdUnsafe,+        getThresholdUnchecked, js_getKnee, getKnee, getKneeUnsafe,+        getKneeUnchecked, js_getRatio, getRatio, getRatioUnsafe,         getRatioUnchecked, js_getReduction, getReduction,-        getReductionUnchecked, js_getAttack, getAttack, getAttackUnchecked,-        js_getRelease, getRelease, getReleaseUnchecked,-        DynamicsCompressorNode, castToDynamicsCompressorNode,+        getReductionUnsafe, getReductionUnchecked, js_getAttack, getAttack,+        getAttackUnsafe, getAttackUnchecked, js_getRelease, getRelease,+        getReleaseUnsafe, getReleaseUnchecked, DynamicsCompressorNode(..),         gTypeDynamicsCompressorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"threshold\"]"         js_getThreshold ::@@ -36,6 +53,14 @@   = liftIO (nullableToMaybe <$> (js_getThreshold (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> +getThresholdUnsafe ::+                   (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getThresholdUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getThreshold (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation>  getThresholdUnchecked ::                       (MonadIO m) => DynamicsCompressorNode -> m AudioParam getThresholdUnchecked self@@ -50,6 +75,14 @@ getKnee self = liftIO (nullableToMaybe <$> (js_getKnee (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> +getKneeUnsafe ::+              (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getKneeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKnee (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation>  getKneeUnchecked ::                  (MonadIO m) => DynamicsCompressorNode -> m AudioParam getKneeUnchecked self@@ -64,6 +97,14 @@ getRatio self = liftIO (nullableToMaybe <$> (js_getRatio (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> +getRatioUnsafe ::+               (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getRatioUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRatio (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation>  getRatioUnchecked ::                   (MonadIO m) => DynamicsCompressorNode -> m AudioParam getRatioUnchecked self@@ -80,6 +121,14 @@   = liftIO (nullableToMaybe <$> (js_getReduction (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> +getReductionUnsafe ::+                   (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getReductionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getReduction (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation>  getReductionUnchecked ::                       (MonadIO m) => DynamicsCompressorNode -> m AudioParam getReductionUnchecked self@@ -94,6 +143,14 @@ getAttack self = liftIO (nullableToMaybe <$> (js_getAttack (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> +getAttackUnsafe ::+                (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getAttackUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAttack (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation>  getAttackUnchecked ::                    (MonadIO m) => DynamicsCompressorNode -> m AudioParam getAttackUnchecked self@@ -107,6 +164,14 @@            (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRelease self   = liftIO (nullableToMaybe <$> (js_getRelease (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> +getReleaseUnsafe ::+                 (MonadIO m, HasCallStack) => DynamicsCompressorNode -> m AudioParam+getReleaseUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelease (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation>  getReleaseUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EXTBlendMinMax-       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax,-        castToEXTBlendMinMax, gTypeEXTBlendMinMax)+       (pattern MIN_EXT, pattern MAX_EXT, EXTBlendMinMax(..),+        gTypeEXTBlendMinMax)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,5 +25,15 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern MIN_EXT = 32775 pattern MAX_EXT = 32776
src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EXTTextureFilterAnisotropic        (pattern TEXTURE_MAX_ANISOTROPY_EXT,         pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT,-        EXTTextureFilterAnisotropic, castToEXTTextureFilterAnisotropic,-        gTypeEXTTextureFilterAnisotropic)+        EXTTextureFilterAnisotropic(..), gTypeEXTTextureFilterAnisotropic)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,5 +26,15 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern TEXTURE_MAX_ANISOTROPY_EXT = 34046 pattern MAX_TEXTURE_MAX_ANISOTROPY_EXT = 34047
src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EXTsRGB        (pattern SRGB_EXT, pattern SRGB_ALPHA_EXT,         pattern SRGB8_ALPHA8_EXT,-        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB,-        castToEXTsRGB, gTypeEXTsRGB)+        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING_EXT, EXTsRGB(..),+        gTypeEXTsRGB)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SRGB_EXT = 35904 pattern SRGB_ALPHA_EXT = 35906 pattern SRGB8_ALPHA8_EXT = 35907
src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -1,45 +1,56 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Element-       (js_getAttribute, getAttribute, getAttribute_,+       (js_getAttribute, getAttribute, getAttribute_, getAttributeUnsafe,         getAttributeUnchecked, js_setAttribute, setAttribute,         js_removeAttribute, removeAttribute, js_getAttributeNode,-        getAttributeNode, getAttributeNode_, getAttributeNodeUnchecked,-        js_setAttributeNode, setAttributeNode, setAttributeNode_,+        getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe,+        getAttributeNodeUnchecked, js_setAttributeNode, setAttributeNode,+        setAttributeNode_, setAttributeNodeUnsafe,         setAttributeNodeUnchecked, js_removeAttributeNode,         removeAttributeNode, removeAttributeNode_,-        removeAttributeNodeUnchecked, js_getElementsByTagName,-        getElementsByTagName, getElementsByTagName_,+        removeAttributeNodeUnsafe, removeAttributeNodeUnchecked,+        js_getElementsByTagName, getElementsByTagName,+        getElementsByTagName_, getElementsByTagNameUnsafe,         getElementsByTagNameUnchecked, js_hasAttributes, hasAttributes,         hasAttributes_, js_getAttributeNS, getAttributeNS, getAttributeNS_,         js_setAttributeNS, setAttributeNS, js_removeAttributeNS,         removeAttributeNS, js_getElementsByTagNameNS,         getElementsByTagNameNS, getElementsByTagNameNS_,-        getElementsByTagNameNSUnchecked, js_getAttributeNodeNS,-        getAttributeNodeNS, getAttributeNodeNS_,-        getAttributeNodeNSUnchecked, js_setAttributeNodeNS,-        setAttributeNodeNS, setAttributeNodeNS_,-        setAttributeNodeNSUnchecked, js_hasAttribute, hasAttribute,-        hasAttribute_, js_hasAttributeNS, hasAttributeNS, hasAttributeNS_,-        js_focus, focus, js_blur, blur, js_scrollIntoView, scrollIntoView,-        js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded,-        js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages,-        js_getElementsByClassName, getElementsByClassName,-        getElementsByClassName_, getElementsByClassNameUnchecked,+        getElementsByTagNameNSUnsafe, getElementsByTagNameNSUnchecked,+        js_getAttributeNodeNS, getAttributeNodeNS, getAttributeNodeNS_,+        getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked,+        js_setAttributeNodeNS, setAttributeNodeNS, setAttributeNodeNS_,+        setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked,+        js_hasAttribute, hasAttribute, hasAttribute_, js_hasAttributeNS,+        hasAttributeNS, hasAttributeNS_, js_focus, focus, js_blur, blur,+        js_scrollIntoView, scrollIntoView, js_scrollIntoViewIfNeeded,+        scrollIntoViewIfNeeded, js_scrollByLines, scrollByLines,+        js_scrollByPages, scrollByPages, js_getElementsByClassName,+        getElementsByClassName, getElementsByClassName_,+        getElementsByClassNameUnsafe, getElementsByClassNameUnchecked,         js_querySelector, querySelector, querySelector_,-        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,-        querySelectorAll_, querySelectorAllUnchecked, js_matches, matches,-        matches_, js_closest, closest, closest_, closestUnchecked,+        querySelectorUnsafe, querySelectorUnchecked, js_querySelectorAll,+        querySelectorAll, querySelectorAll_, querySelectorAllUnsafe,+        querySelectorAllUnchecked, js_matches, matches, matches_,+        js_closest, closest, closest_, closestUnsafe, closestUnchecked,         js_webkitMatchesSelector, webkitMatchesSelector,         webkitMatchesSelector_, js_getClientRects, getClientRects,-        getClientRects_, getClientRectsUnchecked, js_getBoundingClientRect,-        getBoundingClientRect, getBoundingClientRect_,+        getClientRects_, getClientRectsUnsafe, getClientRectsUnchecked,+        js_getBoundingClientRect, getBoundingClientRect,+        getBoundingClientRect_, getBoundingClientRectUnsafe,         getBoundingClientRectUnchecked, js_webkitRequestFullScreen,         webkitRequestFullScreen, js_webkitRequestFullscreen,         webkitRequestFullscreen, js_requestPointerLock, requestPointerLock,         js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,         webkitGetRegionFlowRanges_, pattern ALLOW_KEYBOARD_INPUT,-        js_getTagName, getTagName, getTagNameUnchecked, js_getAttributes,-        getAttributes, getAttributesUnchecked, js_getStyle, getStyle,+        js_getTagName, getTagName, getTagNameUnsafe, getTagNameUnchecked,+        js_getAttributes, getAttributes, getAttributesUnsafe,+        getAttributesUnchecked, js_getStyle, getStyle, getStyleUnsafe,         getStyleUnchecked, js_setId, setId, js_getId, getId,         js_getOffsetLeft, getOffsetLeft, js_getOffsetTop, getOffsetTop,         js_getOffsetWidth, getOffsetWidth, js_getOffsetHeight,@@ -49,35 +60,40 @@         setScrollLeft, js_getScrollLeft, getScrollLeft, js_setScrollTop,         setScrollTop, js_getScrollTop, getScrollTop, js_getScrollWidth,         getScrollWidth, js_getScrollHeight, getScrollHeight,-        js_getOffsetParent, getOffsetParent, getOffsetParentUnchecked,-        js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML,+        js_getOffsetParent, getOffsetParent, getOffsetParentUnsafe,+        getOffsetParentUnchecked, js_setInnerHTML, setInnerHTML,+        js_getInnerHTML, getInnerHTML, getInnerHTMLUnsafe,         getInnerHTMLUnchecked, js_setOuterHTML, setOuterHTML,-        js_getOuterHTML, getOuterHTML, getOuterHTMLUnchecked,-        js_setClassName, setClassName, js_getClassName, getClassName,-        js_getClassList, getClassList, getClassListUnchecked,-        js_getDataset, getDataset, getDatasetUnchecked,+        js_getOuterHTML, getOuterHTML, getOuterHTMLUnsafe,+        getOuterHTMLUnchecked, js_setClassName, setClassName,+        js_getClassName, getClassName, js_getClassList, getClassList,+        getClassListUnsafe, getClassListUnchecked, js_getDataset,+        getDataset, getDatasetUnsafe, getDatasetUnchecked,         js_getFirstElementChild, getFirstElementChild,-        getFirstElementChildUnchecked, js_getLastElementChild,-        getLastElementChild, getLastElementChildUnchecked,+        getFirstElementChildUnsafe, getFirstElementChildUnchecked,+        js_getLastElementChild, getLastElementChild,+        getLastElementChildUnsafe, getLastElementChildUnchecked,         js_getPreviousElementSibling, getPreviousElementSibling,+        getPreviousElementSiblingUnsafe,         getPreviousElementSiblingUnchecked, js_getNextElementSibling,-        getNextElementSibling, getNextElementSiblingUnchecked,-        js_getChildElementCount, getChildElementCount, js_setUiactions,-        setUiactions, js_getUiactions, getUiactions,-        js_getWebkitRegionOverset, getWebkitRegionOverset, abort,-        blurEvent, change, click, contextMenu, dblClick, drag, dragEnd,-        dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent,-        input, invalid, keyDown, keyPress, keyUp, load, mouseDown,-        mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp,-        mouseWheel, scroll, select, submit, wheel, beforeCut, cut,-        beforeCopy, copy, beforePaste, paste, reset, search, selectStart,-        touchStart, touchMove, touchEnd, touchCancel,-        webKitFullscreenChange, webKitFullscreenError,-        webKitWillRevealBottom, webKitWillRevealLeft,-        webKitWillRevealRight, webKitWillRevealTop, Element, castToElement,-        gTypeElement, IsElement, toElement)+        getNextElementSibling, getNextElementSiblingUnsafe,+        getNextElementSiblingUnchecked, js_getChildElementCount,+        getChildElementCount, js_setUiactions, setUiactions,+        js_getUiactions, getUiactions, js_getWebkitRegionOverset,+        getWebkitRegionOverset, abort, blurEvent, change, click,+        contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,+        dragOver, dragStart, drop, error, focusEvent, input, invalid,+        keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,+        mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll,+        select, submit, wheel, beforeCut, cut, beforeCopy, copy,+        beforePaste, paste, reset, search, selectStart, touchStart,+        touchMove, touchEnd, touchCancel, webKitFullscreenChange,+        webKitFullscreenError, webKitWillRevealBottom,+        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,+        Element(..), gTypeElement, IsElement, toElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -93,6 +109,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getAttribute\"]($2)"         js_getAttribute :: Element -> JSString -> IO (Nullable JSString)@@ -116,6 +142,17 @@       (void (js_getAttribute (toElement self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttributeUnsafe ::+                   (MonadIO m, IsElement self, ToJSString name, HasCallStack,+                    FromJSString result) =>+                     self -> name -> m result+getAttributeUnsafe self name+  = liftIO+      ((fromMaybeJSString <$>+          (js_getAttribute (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation>  getAttributeUnchecked ::                       (MonadIO m, IsElement self, ToJSString name,                        FromJSString result) =>@@ -168,6 +205,16 @@       (void (js_getAttributeNode (toElement self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNodeUnsafe ::+                       (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>+                         self -> name -> m Attr+getAttributeNodeUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_getAttributeNode (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation>  getAttributeNodeUnchecked ::                           (MonadIO m, IsElement self, ToJSString name) =>                             self -> name -> m Attr@@ -197,6 +244,16 @@          (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNodeUnsafe ::+                       (MonadIO m, IsElement self, HasCallStack) =>+                         self -> Maybe Attr -> m Attr+setAttributeNodeUnsafe self newAttr+  = liftIO+      ((nullableToMaybe <$>+          (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation>  setAttributeNodeUnchecked ::                           (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr setAttributeNodeUnchecked self newAttr@@ -227,6 +284,17 @@             (maybeToNullable oldAttr)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNodeUnsafe ::+                          (MonadIO m, IsElement self, HasCallStack) =>+                            self -> Maybe Attr -> m Attr+removeAttributeNodeUnsafe self oldAttr+  = liftIO+      ((nullableToMaybe <$>+          (js_removeAttributeNode (toElement self)+             (maybeToNullable oldAttr)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation>  removeAttributeNodeUnchecked ::                              (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr removeAttributeNodeUnchecked self oldAttr@@ -257,6 +325,16 @@       (void (js_getElementsByTagName (toElement self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagNameUnsafe ::+                           (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>+                             self -> name -> m NodeList+getElementsByTagNameUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByTagName (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation>  getElementsByTagNameUnchecked ::                               (MonadIO m, IsElement self, ToJSString name) =>                                 self -> name -> m NodeList@@ -364,6 +442,19 @@             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNSUnsafe ::+                             (MonadIO m, IsElement self, ToJSString namespaceURI,+                              ToJSString localName, HasCallStack) =>+                               self -> Maybe namespaceURI -> localName -> m NodeList+getElementsByTagNameNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByTagNameNS (toElement self)+             (toMaybeJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation>  getElementsByTagNameNSUnchecked ::                                 (MonadIO m, IsElement self, ToJSString namespaceURI,                                  ToJSString localName) =>@@ -404,6 +495,19 @@             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNSUnsafe ::+                         (MonadIO m, IsElement self, ToJSString namespaceURI,+                          ToJSString localName, HasCallStack) =>+                           self -> Maybe namespaceURI -> localName -> m Attr+getAttributeNodeNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_getAttributeNodeNS (toElement self)+             (toMaybeJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation>  getAttributeNodeNSUnchecked ::                             (MonadIO m, IsElement self, ToJSString namespaceURI,                              ToJSString localName) =>@@ -436,6 +540,16 @@          (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNSUnsafe ::+                         (MonadIO m, IsElement self, HasCallStack) =>+                           self -> Maybe Attr -> m Attr+setAttributeNodeNSUnsafe self newAttr+  = liftIO+      ((nullableToMaybe <$>+          (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation>  setAttributeNodeNSUnchecked ::                             (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr setAttributeNodeNSUnchecked self newAttr@@ -560,6 +674,16 @@          (js_getElementsByClassName (toElement self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassNameUnsafe ::+                             (MonadIO m, IsElement self, ToJSString name, HasCallStack) =>+                               self -> name -> m NodeList+getElementsByClassNameUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementsByClassName (toElement self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation>  getElementsByClassNameUnchecked ::                                 (MonadIO m, IsElement self, ToJSString name) =>                                   self -> name -> m NodeList@@ -589,6 +713,16 @@       (void (js_querySelector (toElement self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> +querySelectorUnsafe ::+                    (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>+                      self -> selectors -> m Element+querySelectorUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelector (toElement self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation>  querySelectorUnchecked ::                        (MonadIO m, IsElement self, ToJSString selectors) =>                          self -> selectors -> m Element@@ -620,6 +754,16 @@          (js_querySelectorAll (toElement self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> +querySelectorAllUnsafe ::+                       (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>+                         self -> selectors -> m NodeList+querySelectorAllUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_querySelectorAll (toElement self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation>  querySelectorAllUnchecked ::                           (MonadIO m, IsElement self, ToJSString selectors) =>                             self -> selectors -> m NodeList@@ -667,6 +811,16 @@       (void (js_closest (toElement self) (toJSString selectors)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closestUnsafe ::+              (MonadIO m, IsElement self, ToJSString selectors, HasCallStack) =>+                self -> selectors -> m Element+closestUnsafe self selectors+  = liftIO+      ((nullableToMaybe <$>+          (js_closest (toElement self) (toJSString selectors)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation>  closestUnchecked ::                  (MonadIO m, IsElement self, ToJSString selectors) =>                    self -> selectors -> m Element@@ -711,6 +865,15 @@   = liftIO (void (js_getClientRects (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRectsUnsafe ::+                     (MonadIO m, IsElement self, HasCallStack) =>+                       self -> m ClientRectList+getClientRectsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClientRects (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation>  getClientRectsUnchecked ::                         (MonadIO m, IsElement self) => self -> m ClientRectList getClientRectsUnchecked self@@ -735,6 +898,14 @@   = liftIO (void (js_getBoundingClientRect (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRectUnsafe ::+                            (MonadIO m, IsElement self, HasCallStack) => self -> m ClientRect+getBoundingClientRectUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBoundingClientRect (toElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation>  getBoundingClientRectUnchecked ::                                (MonadIO m, IsElement self) => self -> m ClientRect getBoundingClientRectUnchecked self@@ -800,6 +971,15 @@   = liftIO (fromMaybeJSString <$> (js_getTagName (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagNameUnsafe ::+                 (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                   self -> m result+getTagNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getTagName (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation>  getTagNameUnchecked ::                     (MonadIO m, IsElement self, FromJSString result) =>                       self -> m result@@ -817,6 +997,14 @@   = liftIO (nullableToMaybe <$> (js_getAttributes (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> +getAttributesUnsafe ::+                    (MonadIO m, IsElement self, HasCallStack) => self -> m NamedNodeMap+getAttributesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAttributes (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation>  getAttributesUnchecked ::                        (MonadIO m, IsElement self) => self -> m NamedNodeMap getAttributesUnchecked self@@ -835,6 +1023,15 @@   = liftIO (nullableToMaybe <$> (js_getStyle (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> +getStyleUnsafe ::+               (MonadIO m, IsElement self, HasCallStack) =>+                 self -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation>  getStyleUnchecked ::                   (MonadIO m, IsElement self) => self -> m CSSStyleDeclaration getStyleUnchecked self@@ -970,6 +1167,14 @@       (nullableToMaybe <$> (js_getOffsetParent (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> +getOffsetParentUnsafe ::+                      (MonadIO m, IsElement self, HasCallStack) => self -> m Element+getOffsetParentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOffsetParent (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation>  getOffsetParentUnchecked ::                          (MonadIO m, IsElement self) => self -> m Element getOffsetParentUnchecked self@@ -998,6 +1203,15 @@   = liftIO (fromMaybeJSString <$> (js_getInnerHTML (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTMLUnsafe ::+                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                     self -> m result+getInnerHTMLUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getInnerHTML (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation>  getInnerHTMLUnchecked ::                       (MonadIO m, IsElement self, FromJSString result) =>                         self -> m result@@ -1027,6 +1241,15 @@   = liftIO (fromMaybeJSString <$> (js_getOuterHTML (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTMLUnsafe ::+                   (MonadIO m, IsElement self, HasCallStack, FromJSString result) =>+                     self -> m result+getOuterHTMLUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getOuterHTML (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation>  getOuterHTMLUnchecked ::                       (MonadIO m, IsElement self, FromJSString result) =>                         self -> m result@@ -1064,6 +1287,14 @@   = liftIO (nullableToMaybe <$> (js_getClassList (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> +getClassListUnsafe ::+                   (MonadIO m, IsElement self, HasCallStack) => self -> m DOMTokenList+getClassListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClassList (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation>  getClassListUnchecked ::                       (MonadIO m, IsElement self) => self -> m DOMTokenList getClassListUnchecked self@@ -1080,6 +1311,14 @@   = liftIO (nullableToMaybe <$> (js_getDataset (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> +getDatasetUnsafe ::+                 (MonadIO m, IsElement self, HasCallStack) => self -> m DOMStringMap+getDatasetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDataset (toElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation>  getDatasetUnchecked ::                     (MonadIO m, IsElement self) => self -> m DOMStringMap getDatasetUnchecked self@@ -1097,6 +1336,14 @@       (nullableToMaybe <$> (js_getFirstElementChild (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> +getFirstElementChildUnsafe ::+                           (MonadIO m, IsElement self, HasCallStack) => self -> m Element+getFirstElementChildUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFirstElementChild (toElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation>  getFirstElementChildUnchecked ::                               (MonadIO m, IsElement self) => self -> m Element getFirstElementChildUnchecked self@@ -1115,6 +1362,14 @@       (nullableToMaybe <$> (js_getLastElementChild (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> +getLastElementChildUnsafe ::+                          (MonadIO m, IsElement self, HasCallStack) => self -> m Element+getLastElementChildUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLastElementChild (toElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation>  getLastElementChildUnchecked ::                              (MonadIO m, IsElement self) => self -> m Element getLastElementChildUnchecked self@@ -1134,6 +1389,15 @@          (js_getPreviousElementSibling (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> +getPreviousElementSiblingUnsafe ::+                                (MonadIO m, IsElement self, HasCallStack) => self -> m Element+getPreviousElementSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getPreviousElementSibling (toElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation>  getPreviousElementSiblingUnchecked ::                                    (MonadIO m, IsElement self) => self -> m Element getPreviousElementSiblingUnchecked self@@ -1150,6 +1414,14 @@ getNextElementSibling self   = liftIO       (nullableToMaybe <$> (js_getNextElementSibling (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> +getNextElementSiblingUnsafe ::+                            (MonadIO m, IsElement self, HasCallStack) => self -> m Element+getNextElementSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNextElementSibling (toElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation>  getNextElementSiblingUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Entity.hs view
@@ -1,11 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Entity-       (js_getPublicId, getPublicId, getPublicIdUnchecked, js_getSystemId,-        getSystemId, getSystemIdUnchecked, js_getNotationName,-        getNotationName, getNotationNameUnchecked, Entity, castToEntity,-        gTypeEntity)+       (js_getPublicId, getPublicId, getPublicIdUnsafe,+        getPublicIdUnchecked, js_getSystemId, getSystemId,+        getSystemIdUnsafe, getSystemIdUnchecked, js_getNotationName,+        getNotationName, getNotationNameUnsafe, getNotationNameUnchecked,+        Entity(..), gTypeEntity)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId         :: Entity -> IO (Nullable JSString)@@ -32,6 +49,15 @@   = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> +getPublicIdUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    Entity -> m result+getPublicIdUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPublicId (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation>  getPublicIdUnchecked ::                      (MonadIO m, FromJSString result) => Entity -> m result getPublicIdUnchecked self@@ -47,6 +73,15 @@   = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> +getSystemIdUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    Entity -> m result+getSystemIdUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSystemId (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation>  getSystemIdUnchecked ::                      (MonadIO m, FromJSString result) => Entity -> m result getSystemIdUnchecked self@@ -60,6 +95,15 @@                 (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getNotationName self   = liftIO (fromMaybeJSString <$> (js_getNotationName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> +getNotationNameUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        Entity -> m result+getNotationNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getNotationName (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation>  getNotationNameUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Enums        (KeyType(..), PToJSVal, ToJSVal, PFromJSVal, FromJSVal,         js_KeyTypeSecret, js_KeyTypePublic, js_KeyTypePrivate,@@ -45,6 +50,7 @@         js_XMLHttpRequestResponseTypeText)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -58,6 +64,16 @@ import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>))+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   data KeyType = KeyTypeSecret              | KeyTypePublic
src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ErrorEvent        (js_getMessage, getMessage, js_getFilename, getFilename,-        js_getLineno, getLineno, js_getColno, getColno, ErrorEvent,-        castToErrorEvent, gTypeErrorEvent)+        js_getLineno, getLineno, js_getColno, getColno, ErrorEvent(..),+        gTypeErrorEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::         ErrorEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Event        (js_stopPropagation, stopPropagation, js_preventDefault,         preventDefault, js_initEvent, initEvent,@@ -9,19 +14,21 @@         pattern MOUSEDRAG, pattern CLICK, pattern DBLCLICK,         pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS, pattern DRAGDROP,         pattern FOCUS, pattern BLUR, pattern SELECT, pattern CHANGE,-        js_getType, getType, js_getTarget, getTarget, getTargetUnchecked,-        js_getCurrentTarget, getCurrentTarget, getCurrentTargetUnchecked,+        js_getType, getType, js_getTarget, getTarget, getTargetUnsafe,+        getTargetUnchecked, js_getCurrentTarget, getCurrentTarget,+        getCurrentTargetUnsafe, getCurrentTargetUnchecked,         js_getEventPhase, getEventPhase, js_getBubbles, getBubbles,         js_getCancelable, getCancelable, js_getTimeStamp, getTimeStamp,         js_getDefaultPrevented, getDefaultPrevented, js_getSrcElement,-        getSrcElement, getSrcElementUnchecked, js_setReturnValue,-        setReturnValue, js_getReturnValue, getReturnValue,-        js_setCancelBubble, setCancelBubble, js_getCancelBubble,-        getCancelBubble, js_getClipboardData, getClipboardData,-        getClipboardDataUnchecked, Event, castToEvent, gTypeEvent, IsEvent,-        toEvent)+        getSrcElement, getSrcElementUnsafe, getSrcElementUnchecked,+        js_setReturnValue, setReturnValue, js_getReturnValue,+        getReturnValue, js_setCancelBubble, setCancelBubble,+        js_getCancelBubble, getCancelBubble, js_getClipboardData,+        getClipboardData, getClipboardDataUnsafe,+        getClipboardDataUnchecked, Event(..), gTypeEvent, IsEvent, toEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -36,6 +43,16 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"stopPropagation\"]()"         js_stopPropagation :: Event -> IO ()@@ -112,6 +129,14 @@   = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> +getTargetUnsafe ::+                (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget+getTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTarget (toEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation>  getTargetUnchecked ::                    (MonadIO m, IsEvent self) => self -> m EventTarget getTargetUnchecked self@@ -128,6 +153,14 @@   = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> +getCurrentTargetUnsafe ::+                       (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget+getCurrentTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCurrentTarget (toEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation>  getCurrentTargetUnchecked ::                           (MonadIO m, IsEvent self) => self -> m EventTarget getCurrentTargetUnchecked self@@ -182,6 +215,14 @@   = liftIO (nullableToMaybe <$> (js_getSrcElement (toEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> +getSrcElementUnsafe ::+                    (MonadIO m, IsEvent self, HasCallStack) => self -> m EventTarget+getSrcElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSrcElement (toEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation>  getSrcElementUnchecked ::                        (MonadIO m, IsEvent self) => self -> m EventTarget getSrcElementUnchecked self@@ -227,6 +268,14 @@                  (MonadIO m, IsEvent self) => self -> m (Maybe DataTransfer) getClipboardData self   = liftIO (nullableToMaybe <$> (js_getClipboardData (toEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> +getClipboardDataUnsafe ::+                       (MonadIO m, IsEvent self, HasCallStack) => self -> m DataTransfer+getClipboardDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClipboardData (toEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation>  getClipboardDataUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EventListener-       (js_handleEvent, handleEvent, EventListener, castToEventListener,+       (js_handleEvent, handleEvent, EventListener(..),         gTypeEventListener)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"handleEvent\"]($2)"         js_handleEvent :: EventListener -> Nullable Event -> IO ()
src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EventSource        (js_newEventSource, newEventSource, js_close, close,         pattern CONNECTING, pattern OPEN, pattern CLOSED, js_getUrl,         getUrl, js_getWithCredentials, getWithCredentials,-        js_getReadyState, getReadyState, open, message, error, EventSource,-        castToEventSource, gTypeEventSource)+        js_getReadyState, getReadyState, open, message, error,+        EventSource(..), gTypeEventSource)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"EventSource\"]($1,\n$2)" js_newEventSource ::
src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.EventTarget        (js_addEventListener, addEventListener, js_removeEventListener,         removeEventListener, js_dispatchEvent, dispatchEvent,-        dispatchEvent_, EventTarget, castToEventTarget, gTypeEventTarget,-        IsEventTarget, toEventTarget)+        dispatchEvent_, EventTarget(..), gTypeEventTarget, IsEventTarget,+        toEventTarget)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener ::
src/GHCJS/DOM/JSFFI/Generated/File.hs view
@@ -1,9 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.File        (js_getName, getName, js_getLastModifiedDate, getLastModifiedDate,-        getLastModifiedDateUnchecked, File, castToFile, gTypeFile)+        getLastModifiedDateUnsafe, getLastModifiedDateUnchecked, File(..),+        gTypeFile)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         File -> IO JSString@@ -34,6 +51,14 @@ getLastModifiedDate :: (MonadIO m) => File -> m (Maybe Date) getLastModifiedDate self   = liftIO (nullableToMaybe <$> (js_getLastModifiedDate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> +getLastModifiedDateUnsafe ::+                          (MonadIO m, HasCallStack) => File -> m Date+getLastModifiedDateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLastModifiedDate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation>  getLastModifiedDateUnchecked :: (MonadIO m) => File -> m Date
src/GHCJS/DOM/JSFFI/Generated/FileError.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FileError        (pattern NOT_FOUND_ERR, pattern SECURITY_ERR, pattern ABORT_ERR,         pattern NOT_READABLE_ERR, pattern ENCODING_ERR,         pattern NO_MODIFICATION_ALLOWED_ERR, pattern INVALID_STATE_ERR,         pattern SYNTAX_ERR, pattern INVALID_MODIFICATION_ERR,         pattern QUOTA_EXCEEDED_ERR, pattern TYPE_MISMATCH_ERR,-        pattern PATH_EXISTS_ERR, js_getCode, getCode, FileError,-        castToFileError, gTypeFileError)+        pattern PATH_EXISTS_ERR, js_getCode, getCode, FileError(..),+        gTypeFileError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern NOT_FOUND_ERR = 1 pattern SECURITY_ERR = 2 pattern ABORT_ERR = 3
src/GHCJS/DOM/JSFFI/Generated/FileList.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FileList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        FileList, castToFileList, gTypeFileList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, FileList(..), gTypeFileList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         FileList -> Word -> IO (Nullable File)@@ -31,6 +47,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  item_ :: (MonadIO m) => FileList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => FileList -> Word -> m File+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  itemUnchecked :: (MonadIO m) => FileList -> Word -> m File
src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -1,15 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FileReader        (js_newFileReader, newFileReader, js_readAsArrayBuffer,         readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString,         js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,         js_abort, abort, pattern EMPTY, pattern LOADING, pattern DONE,         js_getReadyState, getReadyState, js_getResult, getResult,-        js_getError, getError, getErrorUnchecked, loadStart, progress,-        load, abortEvent, error, loadEnd, FileReader, castToFileReader,-        gTypeFileReader)+        js_getError, getError, getErrorUnsafe, getErrorUnchecked,+        loadStart, progress, load, abortEvent, error, loadEnd,+        FileReader(..), gTypeFileReader)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"FileReader\"]()"         js_newFileReader :: IO FileReader@@ -105,6 +121,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation>  getError :: (MonadIO m) => FileReader -> m (Maybe FileError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> +getErrorUnsafe ::+               (MonadIO m, HasCallStack) => FileReader -> m FileError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation>  getErrorUnchecked :: (MonadIO m) => FileReader -> m FileError
src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FileReaderSync        (js_newFileReaderSync, newFileReaderSync, js_readAsArrayBuffer,-        readAsArrayBuffer, readAsArrayBuffer_, readAsArrayBufferUnchecked,-        js_readAsBinaryString, readAsBinaryString, readAsBinaryString_,-        js_readAsText, readAsText, readAsText_, js_readAsDataURL,-        readAsDataURL, readAsDataURL_, FileReaderSync,-        castToFileReaderSync, gTypeFileReaderSync)+        readAsArrayBuffer, readAsArrayBuffer_, readAsArrayBufferUnsafe,+        readAsArrayBufferUnchecked, js_readAsBinaryString,+        readAsBinaryString, readAsBinaryString_, js_readAsText, readAsText,+        readAsText_, js_readAsDataURL, readAsDataURL, readAsDataURL_,+        FileReaderSync(..), gTypeFileReaderSync)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"FileReaderSync\"]()"         js_newFileReaderSync :: IO FileReaderSync@@ -51,6 +67,16 @@   = liftIO       (void          (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> +readAsArrayBufferUnsafe ::+                        (MonadIO m, IsBlob blob, HasCallStack) =>+                          FileReaderSync -> Maybe blob -> m ArrayBuffer+readAsArrayBufferUnsafe self blob+  = liftIO+      ((nullableToMaybe <$>+          (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation>  readAsArrayBufferUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FocusEvent-       (js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnchecked,-        FocusEvent, castToFocusEvent, gTypeFocusEvent)+       (js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnsafe,+        getRelatedTargetUnchecked, FocusEvent(..), gTypeFocusEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"relatedTarget\"]"         js_getRelatedTarget :: FocusEvent -> IO (Nullable EventTarget)@@ -28,6 +44,14 @@                  (MonadIO m) => FocusEvent -> m (Maybe EventTarget) getRelatedTarget self   = liftIO (nullableToMaybe <$> (js_getRelatedTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> +getRelatedTargetUnsafe ::+                       (MonadIO m, HasCallStack) => FocusEvent -> m EventTarget+getRelatedTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelatedTarget (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation>  getRelatedTargetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FontLoader        (js_checkFont, checkFont, checkFont_, js_loadFont, loadFont,         js_notifyWhenFontsReady, notifyWhenFontsReady, loading,         loadingDone, loadStart, load, error, js_getLoading, getLoading,-        FontLoader, castToFontLoader, gTypeFontLoader)+        FontLoader(..), gTypeFontLoader)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont ::
src/GHCJS/DOM/JSFFI/Generated/FormData.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.FormData-       (js_newFormData, newFormData, js_append, append, FormData,-        castToFormData, gTypeFormData)+       (js_newFormData, newFormData, js_append, append, FormData(..),+        gTypeFormData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"FormData\"]($1)"         js_newFormData :: Nullable HTMLFormElement -> IO FormData
src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.GainNode-       (js_getGain, getGain, getGainUnchecked, GainNode, castToGainNode,-        gTypeGainNode)+       (js_getGain, getGain, getGainUnsafe, getGainUnchecked,+        GainNode(..), gTypeGainNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::         GainNode -> IO (Nullable AudioParam)@@ -26,6 +42,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation>  getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> +getGainUnsafe ::+              (MonadIO m, HasCallStack) => GainNode -> m AudioParam+getGainUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGain (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation>  getGainUnchecked :: (MonadIO m) => GainNode -> m AudioParam
src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Gamepad        (js_getId, getId, js_getIndex, getIndex, js_getConnected,         getConnected, js_getTimestamp, getTimestamp, js_getMapping,         getMapping, js_getAxes, getAxes, js_getButtons, getButtons,-        Gamepad, castToGamepad, gTypeGamepad)+        Gamepad(..), gTypeGamepad)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"id\"]" js_getId ::         Gamepad -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.GamepadButton-       (js_getPressed, getPressed, js_getValue, getValue, GamepadButton,-        castToGamepadButton, gTypeGamepadButton)+       (js_getPressed, getPressed, js_getValue, getValue,+        GamepadButton(..), gTypeGamepadButton)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)"         js_getPressed :: GamepadButton -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.GamepadEvent-       (js_getGamepad, getGamepad, getGamepadUnchecked, GamepadEvent,-        castToGamepadEvent, gTypeGamepadEvent)+       (js_getGamepad, getGamepad, getGamepadUnsafe, getGamepadUnchecked,+        GamepadEvent(..), gTypeGamepadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad ::         GamepadEvent -> IO (Nullable Gamepad)@@ -27,6 +43,14 @@ getGamepad :: (MonadIO m) => GamepadEvent -> m (Maybe Gamepad) getGamepad self   = liftIO (nullableToMaybe <$> (js_getGamepad (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation> +getGamepadUnsafe ::+                 (MonadIO m, HasCallStack) => GamepadEvent -> m Gamepad+getGamepadUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGamepad (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation>  getGamepadUnchecked :: (MonadIO m) => GamepadEvent -> m Gamepad
src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Geolocation        (js_getCurrentPosition, getCurrentPosition, js_watchPosition,         watchPosition, watchPosition_, js_clearWatch, clearWatch,-        Geolocation, castToGeolocation, gTypeGeolocation)+        Geolocation(..), gTypeGeolocation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition ::
src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Geoposition-       (js_getCoords, getCoords, getCoordsUnchecked, js_getTimestamp,-        getTimestamp, Geoposition, castToGeoposition, gTypeGeoposition)+       (js_getCoords, getCoords, getCoordsUnsafe, getCoordsUnchecked,+        js_getTimestamp, getTimestamp, Geoposition(..), gTypeGeoposition)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::         Geoposition -> IO (Nullable Coordinates)@@ -26,6 +42,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation>  getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates) getCoords self = liftIO (nullableToMaybe <$> (js_getCoords (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> +getCoordsUnsafe ::+                (MonadIO m, HasCallStack) => Geoposition -> m Coordinates+getCoordsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCoords (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation>  getCoordsUnchecked :: (MonadIO m) => Geoposition -> m Coordinates
src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_tags, tags, tags_,-        tagsUnchecked, js_getLength, getLength, HTMLAllCollection,-        castToHTMLAllCollection, gTypeHTMLAllCollection)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_tags, tags, tags_, tagsUnsafe, tagsUnchecked, js_getLength,+        getLength, HTMLAllCollection(..), gTypeHTMLAllCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         HTMLAllCollection -> Word -> IO (Nullable Node)@@ -35,6 +51,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => HTMLAllCollection -> Word -> m Node+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation>  itemUnchecked :: (MonadIO m) => HTMLAllCollection -> Word -> m Node itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -57,6 +81,15 @@   = liftIO (void (js_namedItem (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  HTMLAllCollection -> name -> m Node+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation>  namedItemUnchecked ::                    (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m Node namedItemUnchecked self name@@ -78,6 +111,15 @@ tags_ ::       (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m () tags_ self name = liftIO (void (js_tags (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> +tagsUnsafe ::+           (MonadIO m, ToJSString name, HasCallStack) =>+             HTMLAllCollection -> name -> m NodeList+tagsUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_tags (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation>  tagsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement        (js_toString, toString, toString_, js_setCharset, setCharset,         js_getCharset, getCharset, js_setCoords, setCoords, js_getCoords,@@ -10,19 +15,23 @@         js_setRev, setRev, js_getRev, getRev, js_setShape, setShape,         js_getShape, getShape, js_setTarget, setTarget, js_getTarget,         getTarget, js_setType, setType, js_getType, getType, js_setHash,-        setHash, js_getHash, getHash, getHashUnchecked, js_setHost,-        setHost, js_getHost, getHost, getHostUnchecked, js_setHostname,-        setHostname, js_getHostname, getHostname, getHostnameUnchecked,+        setHash, js_getHash, getHash, getHashUnsafe, getHashUnchecked,+        js_setHost, setHost, js_getHost, getHost, getHostUnsafe,+        getHostUnchecked, js_setHostname, setHostname, js_getHostname,+        getHostname, getHostnameUnsafe, getHostnameUnchecked,         js_setPathname, setPathname, js_getPathname, getPathname,-        getPathnameUnchecked, js_setPort, setPort, js_getPort, getPort,-        getPortUnchecked, js_setProtocol, setProtocol, js_getProtocol,-        getProtocol, getProtocolUnchecked, js_setSearch, setSearch,-        js_getSearch, getSearch, getSearchUnchecked, js_getOrigin,-        getOrigin, getOriginUnchecked, js_setText, setText, js_getText,-        getText, js_getRelList, getRelList, getRelListUnchecked,-        HTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement)+        getPathnameUnsafe, getPathnameUnchecked, js_setPort, setPort,+        js_getPort, getPort, getPortUnsafe, getPortUnchecked,+        js_setProtocol, setProtocol, js_getProtocol, getProtocol,+        getProtocolUnsafe, getProtocolUnchecked, js_setSearch, setSearch,+        js_getSearch, getSearch, getSearchUnsafe, getSearchUnchecked,+        js_getOrigin, getOrigin, getOriginUnsafe, getOriginUnchecked,+        js_setText, setText, js_getText, getText, js_getRelList,+        getRelList, getRelListUnsafe, getRelListUnchecked,+        HTMLAnchorElement(..), gTypeHTMLAnchorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -38,6 +47,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"toString\"]()" js_toString         :: HTMLAnchorElement -> IO JSString@@ -267,6 +286,15 @@ getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +getHashUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLAnchorElement -> m result+getHashUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getHash (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation>  getHashUnchecked ::                  (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getHashUnchecked self@@ -291,6 +319,15 @@ getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +getHostUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLAnchorElement -> m result+getHostUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getHost (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation>  getHostUnchecked ::                  (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getHostUnchecked self@@ -317,6 +354,15 @@   = liftIO (fromMaybeJSString <$> (js_getHostname (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +getHostnameUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    HTMLAnchorElement -> m result+getHostnameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getHostname (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation>  getHostnameUnchecked ::                      (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getHostnameUnchecked self@@ -343,6 +389,15 @@   = liftIO (fromMaybeJSString <$> (js_getPathname (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +getPathnameUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    HTMLAnchorElement -> m result+getPathnameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPathname (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation>  getPathnameUnchecked ::                      (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getPathnameUnchecked self@@ -367,6 +422,15 @@ getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +getPortUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLAnchorElement -> m result+getPortUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPort (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation>  getPortUnchecked ::                  (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getPortUnchecked self@@ -393,6 +457,15 @@   = liftIO (fromMaybeJSString <$> (js_getProtocol (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +getProtocolUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    HTMLAnchorElement -> m result+getProtocolUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getProtocol (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation>  getProtocolUnchecked ::                      (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getProtocolUnchecked self@@ -419,6 +492,15 @@   = liftIO (fromMaybeJSString <$> (js_getSearch (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +getSearchUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  HTMLAnchorElement -> m result+getSearchUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getSearch (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation>  getSearchUnchecked ::                    (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getSearchUnchecked self@@ -435,6 +517,15 @@   = liftIO (fromMaybeJSString <$> (js_getOrigin (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> +getOriginUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  HTMLAnchorElement -> m result+getOriginUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getOrigin (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation>  getOriginUnchecked ::                    (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getOriginUnchecked self@@ -464,6 +555,14 @@            (MonadIO m) => HTMLAnchorElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> +getRelListUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLAnchorElement -> m DOMTokenList+getRelListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation>  getRelListUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLAppletElement        (js_setAlign, setAlign, js_getAlign, getAlign, js_setAlt, setAlt,         js_getAlt, getAlt, js_setArchive, setArchive, js_getArchive,@@ -8,10 +13,11 @@         setHspace, js_getHspace, getHspace, js_setName, setName,         js_getName, getName, js_setObject, setObject, js_getObject,         getObject, js_setVspace, setVspace, js_getVspace, getVspace,-        js_setWidth, setWidth, js_getWidth, getWidth, HTMLAppletElement,-        castToHTMLAppletElement, gTypeHTMLAppletElement)+        js_setWidth, setWidth, js_getWidth, getWidth,+        HTMLAppletElement(..), gTypeHTMLAppletElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLAppletElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLAreaElement        (js_setAlt, setAlt, js_getAlt, getAlt, js_setCoords, setCoords,         js_getCoords, getCoords, js_setHref, setHref, js_getHref, getHref,@@ -9,10 +14,11 @@         js_getHost, getHost, js_getHostname, getHostname, js_getPathname,         getPathname, js_getPort, getPort, js_getProtocol, getProtocol,         js_getSearch, getSearch, js_getRelList, getRelList,-        getRelListUnchecked, HTMLAreaElement, castToHTMLAreaElement,+        getRelListUnsafe, getRelListUnchecked, HTMLAreaElement(..),         gTypeHTMLAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::         HTMLAreaElement -> JSString -> IO ()@@ -222,6 +238,14 @@            (MonadIO m) => HTMLAreaElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> +getRelListUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLAreaElement -> m DOMTokenList+getRelListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation>  getRelListUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLBRElement-       (js_setClear, setClear, js_getClear, getClear, HTMLBRElement,-        castToHTMLBRElement, gTypeHTMLBRElement)+       (js_setClear, setClear, js_getClear, getClear, HTMLBRElement(..),+        gTypeHTMLBRElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear         :: HTMLBRElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement-       (js_setHref, setHref, js_getHref, getHref, getHrefUnchecked,-        js_setTarget, setTarget, js_getTarget, getTarget, HTMLBaseElement,-        castToHTMLBaseElement, gTypeHTMLBaseElement)+       (js_setHref, setHref, js_getHref, getHref, getHrefUnsafe,+        getHrefUnchecked, js_setTarget, setTarget, js_getTarget, getTarget,+        HTMLBaseElement(..), gTypeHTMLBaseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::         HTMLBaseElement -> Nullable JSString -> IO ()@@ -37,6 +53,15 @@         (MonadIO m, FromJSString result) =>           HTMLBaseElement -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +getHrefUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLBaseElement -> m result+getHrefUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getHref (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation>  getHrefUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLBaseFontElement        (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace,         js_getFace, getFace, js_setSize, setSize, js_getSize, getSize,-        HTMLBaseFontElement, castToHTMLBaseFontElement,-        gTypeHTMLBaseFontElement)+        HTMLBaseFontElement(..), gTypeHTMLBaseFontElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor         :: HTMLBaseFontElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLBodyElement        (js_setALink, setALink, js_getALink, getALink, js_setBackground,         setBackground, js_getBackground, getBackground, js_setBgColor,@@ -7,9 +12,10 @@         js_setVLink, setVLink, js_getVLink, getVLink, beforeUnload,         hashChange, message, offline, online, popState, resize, storage,         unload, orientationChange, blur, error, focus, load,-        HTMLBodyElement, castToHTMLBodyElement, gTypeHTMLBodyElement)+        HTMLBodyElement(..), gTypeHTMLBodyElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink         :: HTMLBodyElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs view
@@ -1,24 +1,32 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_setAutofocus,         setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnchecked, js_setFormAction, setFormAction,+        getFormUnsafe, getFormUnchecked, js_setFormAction, setFormAction,         js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,-        js_getFormEnctype, getFormEnctype, getFormEnctypeUnchecked,-        js_setFormMethod, setFormMethod, js_getFormMethod, getFormMethod,+        js_getFormEnctype, getFormEnctype, getFormEnctypeUnsafe,+        getFormEnctypeUnchecked, js_setFormMethod, setFormMethod,+        js_getFormMethod, getFormMethod, getFormMethodUnsafe,         getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,         js_getFormNoValidate, getFormNoValidate, js_setFormTarget,         setFormTarget, js_getFormTarget, getFormTarget, js_setName,         setName, js_getName, getName, js_setType, setType, js_getType,-        getType, getTypeUnchecked, js_setValue, setValue, js_getValue,-        getValue, js_getWillValidate, getWillValidate, js_getValidity,-        getValidity, getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnchecked,-        HTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement)+        getType, getTypeUnsafe, getTypeUnchecked, js_setValue, setValue,+        js_getValue, getValue, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,+        getLabelsUnchecked, HTMLButtonElement(..), gTypeHTMLButtonElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -34,6 +42,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -95,6 +113,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLButtonElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLButtonElement -> m HTMLFormElement getFormUnchecked self@@ -140,6 +166,15 @@   = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +getFormEnctypeUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLButtonElement -> m result+getFormEnctypeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation>  getFormEnctypeUnchecked ::                         (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormEnctypeUnchecked self@@ -167,6 +202,15 @@   = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +getFormMethodUnsafe ::+                    (MonadIO m, HasCallStack, FromJSString result) =>+                      HTMLButtonElement -> m result+getFormMethodUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getFormMethod (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation>  getFormMethodUnchecked ::                        (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormMethodUnchecked self@@ -242,6 +286,15 @@ getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +getTypeUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLButtonElement -> m result+getTypeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getType (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation>  getTypeUnchecked ::                  (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getTypeUnchecked self@@ -280,6 +333,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLButtonElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLButtonElement -> m ValidityState getValidityUnchecked self@@ -300,6 +361,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation>  getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLButtonElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation>  getLabelsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement        (js_toDataURL, toDataURL, toDataURL_, js_getContext, getContext,         getContext_, js_probablySupportsContext, probablySupportsContext,         probablySupportsContext_, js_setWidth, setWidth, js_getWidth,         getWidth, js_setHeight, setHeight, js_getHeight, getHeight,-        HTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement)+        HTMLCanvasElement(..), gTypeHTMLCanvasElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"toDataURL\"]($2)"         js_toDataURL ::
src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLCollection-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_getLength, getLength,-        HTMLCollection, castToHTMLCollection, gTypeHTMLCollection,+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_getLength, getLength, HTMLCollection(..), gTypeHTMLCollection,         IsHTMLCollection, toHTMLCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         HTMLCollection -> Word -> IO (Nullable Node)@@ -39,6 +55,15 @@   = liftIO (void (js_item (toHTMLCollection self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> +itemUnsafe ::+           (MonadIO m, IsHTMLCollection self, HasCallStack) =>+             self -> Word -> m Node+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (toHTMLCollection self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation>  itemUnchecked ::               (MonadIO m, IsHTMLCollection self) => self -> Word -> m Node itemUnchecked self index@@ -65,6 +90,17 @@ namedItem_ self name   = liftIO       (void (js_namedItem (toHTMLCollection self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, IsHTMLCollection self, ToJSString name,+                 HasCallStack) =>+                  self -> name -> m Node+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_namedItem (toHTMLCollection self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDListElement        (js_setCompact, setCompact, js_getCompact, getCompact,-        HTMLDListElement, castToHTMLDListElement, gTypeHTMLDListElement)+        HTMLDListElement(..), gTypeHTMLDListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"compact\"] = $2;"         js_setCompact :: HTMLDListElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement-       (js_getOptions, getOptions, getOptionsUnchecked,-        HTMLDataListElement, castToHTMLDataListElement,-        gTypeHTMLDataListElement)+       (js_getOptions, getOptions, getOptionsUnsafe, getOptionsUnchecked,+        HTMLDataListElement(..), gTypeHTMLDataListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::         HTMLDataListElement -> IO (Nullable HTMLCollection)@@ -29,6 +44,15 @@            (MonadIO m) => HTMLDataListElement -> m (Maybe HTMLCollection) getOptions self   = liftIO (nullableToMaybe <$> (js_getOptions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> +getOptionsUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLDataListElement -> m HTMLCollection+getOptionsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOptions (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation>  getOptionsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDetailsElement-       (js_setOpen, setOpen, js_getOpen, getOpen, HTMLDetailsElement,-        castToHTMLDetailsElement, gTypeHTMLDetailsElement)+       (js_setOpen, setOpen, js_getOpen, getOpen, HTMLDetailsElement(..),+        gTypeHTMLDetailsElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen ::         HTMLDetailsElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDirectoryElement        (js_setCompact, setCompact, js_getCompact, getCompact,-        HTMLDirectoryElement, castToHTMLDirectoryElement,-        gTypeHTMLDirectoryElement)+        HTMLDirectoryElement(..), gTypeHTMLDirectoryElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"compact\"] = $2;"         js_setCompact :: HTMLDirectoryElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDivElement-       (js_setAlign, setAlign, js_getAlign, getAlign, HTMLDivElement,-        castToHTMLDivElement, gTypeHTMLDivElement)+       (js_setAlign, setAlign, js_getAlign, getAlign, HTMLDivElement(..),+        gTypeHTMLDivElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLDivElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -1,24 +1,33 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLDocument        (js_open, open, js_close, close, js_write, write, js_writeln,         writeln, js_clear, clear, js_captureEvents, captureEvents,         js_releaseEvents, releaseEvents, js_getEmbeds, getEmbeds,-        getEmbedsUnchecked, js_getPlugins, getPlugins, getPluginsUnchecked,-        js_getScripts, getScripts, getScriptsUnchecked, js_getAll, getAll,-        getAllUnchecked, js_getWidth, getWidth, js_getHeight, getHeight,-        js_setDir, setDir, js_getDir, getDir, getDirUnchecked,-        js_setDesignMode, setDesignMode, js_getDesignMode, getDesignMode,-        getDesignModeUnchecked, js_getCompatMode, getCompatMode,-        js_setBgColor, setBgColor, js_getBgColor, getBgColor,-        getBgColorUnchecked, js_setFgColor, setFgColor, js_getFgColor,-        getFgColor, getFgColorUnchecked, js_setAlinkColor, setAlinkColor,-        js_getAlinkColor, getAlinkColor, getAlinkColorUnchecked,-        js_setLinkColor, setLinkColor, js_getLinkColor, getLinkColor,+        getEmbedsUnsafe, getEmbedsUnchecked, js_getPlugins, getPlugins,+        getPluginsUnsafe, getPluginsUnchecked, js_getScripts, getScripts,+        getScriptsUnsafe, getScriptsUnchecked, js_getAll, getAll,+        getAllUnsafe, getAllUnchecked, js_getWidth, getWidth, js_getHeight,+        getHeight, js_setDir, setDir, js_getDir, getDir, getDirUnsafe,+        getDirUnchecked, js_setDesignMode, setDesignMode, js_getDesignMode,+        getDesignMode, getDesignModeUnsafe, getDesignModeUnchecked,+        js_getCompatMode, getCompatMode, js_setBgColor, setBgColor,+        js_getBgColor, getBgColor, getBgColorUnsafe, getBgColorUnchecked,+        js_setFgColor, setFgColor, js_getFgColor, getFgColor,+        getFgColorUnsafe, getFgColorUnchecked, js_setAlinkColor,+        setAlinkColor, js_getAlinkColor, getAlinkColor,+        getAlinkColorUnsafe, getAlinkColorUnchecked, js_setLinkColor,+        setLinkColor, js_getLinkColor, getLinkColor, getLinkColorUnsafe,         getLinkColorUnchecked, js_setVlinkColor, setVlinkColor,-        js_getVlinkColor, getVlinkColor, getVlinkColorUnchecked,-        HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)+        js_getVlinkColor, getVlinkColor, getVlinkColorUnsafe,+        getVlinkColorUnchecked, HTMLDocument(..), gTypeHTMLDocument)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -34,6 +43,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"open\"]()" js_open ::         HTMLDocument -> IO ()@@ -95,6 +114,14 @@ getEmbeds self = liftIO (nullableToMaybe <$> (js_getEmbeds (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> +getEmbedsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection+getEmbedsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEmbeds (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation>  getEmbedsUnchecked ::                    (MonadIO m) => HTMLDocument -> m HTMLCollection getEmbedsUnchecked self@@ -110,6 +137,14 @@   = liftIO (nullableToMaybe <$> (js_getPlugins (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> +getPluginsUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection+getPluginsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPlugins (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation>  getPluginsUnchecked ::                     (MonadIO m) => HTMLDocument -> m HTMLCollection getPluginsUnchecked self@@ -125,6 +160,14 @@   = liftIO (nullableToMaybe <$> (js_getScripts (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> +getScriptsUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLCollection+getScriptsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getScripts (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation>  getScriptsUnchecked ::                     (MonadIO m) => HTMLDocument -> m HTMLCollection getScriptsUnchecked self@@ -139,6 +182,14 @@ getAll self = liftIO (nullableToMaybe <$> (js_getAll (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> +getAllUnsafe ::+             (MonadIO m, HasCallStack) => HTMLDocument -> m HTMLAllCollection+getAllUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAll (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation>  getAllUnchecked ::                 (MonadIO m) => HTMLDocument -> m HTMLAllCollection getAllUnchecked self@@ -176,6 +227,15 @@ getDir self = liftIO (fromMaybeJSString <$> (js_getDir (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +getDirUnsafe ::+             (MonadIO m, HasCallStack, FromJSString result) =>+               HTMLDocument -> m result+getDirUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDir (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation>  getDirUnchecked ::                 (MonadIO m, FromJSString result) => HTMLDocument -> m result getDirUnchecked self@@ -201,6 +261,15 @@   = liftIO (fromMaybeJSString <$> (js_getDesignMode (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +getDesignModeUnsafe ::+                    (MonadIO m, HasCallStack, FromJSString result) =>+                      HTMLDocument -> m result+getDesignModeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDesignMode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation>  getDesignModeUnchecked ::                        (MonadIO m, FromJSString result) => HTMLDocument -> m result getDesignModeUnchecked self@@ -236,6 +305,15 @@   = liftIO (fromMaybeJSString <$> (js_getBgColor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +getBgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLDocument -> m result+getBgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBgColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation>  getBgColorUnchecked ::                     (MonadIO m, FromJSString result) => HTMLDocument -> m result getBgColorUnchecked self@@ -261,6 +339,15 @@   = liftIO (fromMaybeJSString <$> (js_getFgColor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +getFgColorUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLDocument -> m result+getFgColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getFgColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation>  getFgColorUnchecked ::                     (MonadIO m, FromJSString result) => HTMLDocument -> m result getFgColorUnchecked self@@ -286,6 +373,15 @@   = liftIO (fromMaybeJSString <$> (js_getAlinkColor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +getAlinkColorUnsafe ::+                    (MonadIO m, HasCallStack, FromJSString result) =>+                      HTMLDocument -> m result+getAlinkColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAlinkColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation>  getAlinkColorUnchecked ::                        (MonadIO m, FromJSString result) => HTMLDocument -> m result getAlinkColorUnchecked self@@ -312,6 +408,15 @@   = liftIO (fromMaybeJSString <$> (js_getLinkColor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +getLinkColorUnsafe ::+                   (MonadIO m, HasCallStack, FromJSString result) =>+                     HTMLDocument -> m result+getLinkColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLinkColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation>  getLinkColorUnchecked ::                       (MonadIO m, FromJSString result) => HTMLDocument -> m result getLinkColorUnchecked self@@ -336,6 +441,15 @@                 HTMLDocument -> m (Maybe result) getVlinkColor self   = liftIO (fromMaybeJSString <$> (js_getVlinkColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +getVlinkColorUnsafe ::+                    (MonadIO m, HasCallStack, FromJSString result) =>+                      HTMLDocument -> m result+getVlinkColorUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getVlinkColor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation>  getVlinkColorUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -1,28 +1,36 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLElement        (js_insertAdjacentElement, insertAdjacentElement,-        insertAdjacentElement_, insertAdjacentElementUnchecked,-        js_insertAdjacentHTML, insertAdjacentHTML, js_insertAdjacentText,-        insertAdjacentText, js_click, click, js_setTitle, setTitle,-        js_getTitle, getTitle, js_setLang, setLang, js_getLang, getLang,-        js_setTranslate, setTranslate, js_getTranslate, getTranslate,-        js_setDir, setDir, js_getDir, getDir, js_setTabIndex, setTabIndex,-        js_getTabIndex, getTabIndex, js_setDraggable, setDraggable,-        js_getDraggable, getDraggable, js_setWebkitdropzone,-        setWebkitdropzone, js_getWebkitdropzone, getWebkitdropzone,-        js_setHidden, setHidden, js_getHidden, getHidden, js_setAccessKey,-        setAccessKey, js_getAccessKey, getAccessKey, js_setInnerText,-        setInnerText, js_getInnerText, getInnerText, getInnerTextUnchecked,-        js_setOuterText, setOuterText, js_getOuterText, getOuterText,+        insertAdjacentElement_, insertAdjacentElementUnsafe,+        insertAdjacentElementUnchecked, js_insertAdjacentHTML,+        insertAdjacentHTML, js_insertAdjacentText, insertAdjacentText,+        js_click, click, js_setTitle, setTitle, js_getTitle, getTitle,+        js_setLang, setLang, js_getLang, getLang, js_setTranslate,+        setTranslate, js_getTranslate, getTranslate, js_setDir, setDir,+        js_getDir, getDir, js_setTabIndex, setTabIndex, js_getTabIndex,+        getTabIndex, js_setDraggable, setDraggable, js_getDraggable,+        getDraggable, js_setWebkitdropzone, setWebkitdropzone,+        js_getWebkitdropzone, getWebkitdropzone, js_setHidden, setHidden,+        js_getHidden, getHidden, js_setAccessKey, setAccessKey,+        js_getAccessKey, getAccessKey, js_setInnerText, setInnerText,+        js_getInnerText, getInnerText, getInnerTextUnsafe,+        getInnerTextUnchecked, js_setOuterText, setOuterText,+        js_getOuterText, getOuterText, getOuterTextUnsafe,         getOuterTextUnchecked, js_getChildren, getChildren,-        getChildrenUnchecked, js_setContentEditable, setContentEditable,-        js_getContentEditable, getContentEditable,-        getContentEditableUnchecked, js_getIsContentEditable,-        getIsContentEditable, js_setSpellcheck, setSpellcheck,-        js_getSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement,+        getChildrenUnsafe, getChildrenUnchecked, js_setContentEditable,+        setContentEditable, js_getContentEditable, getContentEditable,+        getContentEditableUnsafe, getContentEditableUnchecked,+        js_getIsContentEditable, getIsContentEditable, js_setSpellcheck,+        setSpellcheck, js_getSpellcheck, getSpellcheck, HTMLElement(..),         gTypeHTMLElement, IsHTMLElement, toHTMLElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -38,6 +46,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement@@ -68,6 +86,18 @@             (maybeToNullable (fmap toElement element))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> +insertAdjacentElementUnsafe ::+                            (MonadIO m, IsHTMLElement self, ToJSString where',+                             IsElement element, HasCallStack) =>+                              self -> where' -> Maybe element -> m Element+insertAdjacentElementUnsafe self where' element+  = liftIO+      ((nullableToMaybe <$>+          (js_insertAdjacentElement (toHTMLElement self) (toJSString where')+             (maybeToNullable (fmap toElement element))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation>  insertAdjacentElementUnchecked ::                                (MonadIO m, IsHTMLElement self, ToJSString where',                                 IsElement element) =>@@ -301,6 +331,16 @@       (fromMaybeJSString <$> (js_getInnerText (toHTMLElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +getInnerTextUnsafe ::+                   (MonadIO m, IsHTMLElement self, HasCallStack,+                    FromJSString result) =>+                     self -> m result+getInnerTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getInnerText (toHTMLElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation>  getInnerTextUnchecked ::                       (MonadIO m, IsHTMLElement self, FromJSString result) =>                         self -> m result@@ -332,6 +372,16 @@       (fromMaybeJSString <$> (js_getOuterText (toHTMLElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +getOuterTextUnsafe ::+                   (MonadIO m, IsHTMLElement self, HasCallStack,+                    FromJSString result) =>+                     self -> m result+getOuterTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getOuterText (toHTMLElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation>  getOuterTextUnchecked ::                       (MonadIO m, IsHTMLElement self, FromJSString result) =>                         self -> m result@@ -351,6 +401,15 @@       (nullableToMaybe <$> (js_getChildren (toHTMLElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> +getChildrenUnsafe ::+                  (MonadIO m, IsHTMLElement self, HasCallStack) =>+                    self -> m HTMLCollection+getChildrenUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getChildren (toHTMLElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation>  getChildrenUnchecked ::                      (MonadIO m, IsHTMLElement self) => self -> m HTMLCollection getChildrenUnchecked self@@ -380,6 +439,17 @@   = liftIO       (fromMaybeJSString <$>          (js_getContentEditable (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +getContentEditableUnsafe ::+                         (MonadIO m, IsHTMLElement self, HasCallStack,+                          FromJSString result) =>+                           self -> m result+getContentEditableUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getContentEditable (toHTMLElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation>  getContentEditableUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement        (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnchecked, js_setAlign, setAlign, js_getAlign,-        getAlign, js_setHeight, setHeight, js_getHeight, getHeight,-        js_setName, setName, js_getName, getName, js_setSrc, setSrc,-        js_getSrc, getSrc, js_setType, setType, js_getType, getType,-        js_setWidth, setWidth, js_getWidth, getWidth, HTMLEmbedElement,-        castToHTMLEmbedElement, gTypeHTMLEmbedElement)+        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setAlign,+        setAlign, js_getAlign, getAlign, js_setHeight, setHeight,+        js_getHeight, getHeight, js_setName, setName, js_getName, getName,+        js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType,+        js_getType, getType, js_setWidth, setWidth, js_getWidth, getWidth,+        HTMLEmbedElement(..), gTypeHTMLEmbedElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"         js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable SVGDocument)@@ -37,6 +53,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation>  getSVGDocument_ :: (MonadIO m) => HTMLEmbedElement -> m () getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> +getSVGDocumentUnsafe ::+                     (MonadIO m, HasCallStack) => HTMLEmbedElement -> m SVGDocument+getSVGDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation>  getSVGDocumentUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnchecked, js_setName, setName, js_getName, getName,-        js_getType, getType, js_getElements, getElements,-        getElementsUnchecked, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, getValidityUnchecked,-        js_getValidationMessage, getValidationMessage, HTMLFieldSetElement,-        castToHTMLFieldSetElement, gTypeHTMLFieldSetElement)+        getFormUnsafe, getFormUnchecked, js_setName, setName, js_getName,+        getName, js_getType, getType, js_getElements, getElements,+        getElementsUnsafe, getElementsUnchecked, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, HTMLFieldSetElement(..),+        gTypeHTMLFieldSetElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -73,6 +90,15 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) =>+                HTMLFieldSetElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLFieldSetElement -> m HTMLFormElement getFormUnchecked self@@ -112,6 +138,15 @@   = liftIO (nullableToMaybe <$> (js_getElements (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> +getElementsUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    HTMLFieldSetElement -> m HTMLCollection+getElementsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getElements (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation>  getElementsUnchecked ::                      (MonadIO m) => HTMLFieldSetElement -> m HTMLCollection getElementsUnchecked self@@ -132,6 +167,14 @@             (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLFieldSetElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation>  getValidityUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFontElement        (js_setColor, setColor, js_getColor, getColor, js_setFace, setFace,         js_getFace, getFace, js_setSize, setSize, js_getSize, getSize,-        HTMLFontElement, castToHTMLFontElement, gTypeHTMLFontElement)+        HTMLFontElement(..), gTypeHTMLFontElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor         :: HTMLFontElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection-       (js__get, _get, _get_, _getUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, HTMLFormControlsCollection,-        castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection)+       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        HTMLFormControlsCollection(..), gTypeHTMLFormControlsCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::         HTMLFormControlsCollection -> Word -> IO (Nullable Node)@@ -35,6 +51,15 @@ _get_ self index = liftIO (void (js__get (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> +_getUnsafe ::+           (MonadIO m, HasCallStack) =>+             HTMLFormControlsCollection -> Word -> m Node+_getUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js__get (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation>  _getUnchecked ::               (MonadIO m) => HTMLFormControlsCollection -> Word -> m Node _getUnchecked self index@@ -58,6 +83,15 @@              HTMLFormControlsCollection -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  HTMLFormControlsCollection -> name -> m Node+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -1,26 +1,33 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormElement-       (js__get, _get, _get_, _getUnchecked, js_submit, submit, js_reset,-        reset, js_checkValidity, checkValidity, checkValidity_,-        js_requestAutocomplete, requestAutocomplete, js_setAcceptCharset,-        setAcceptCharset, js_getAcceptCharset, getAcceptCharset,-        js_setAction, setAction, js_getAction, getAction,+       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_submit,+        submit, js_reset, reset, js_checkValidity, checkValidity,+        checkValidity_, js_requestAutocomplete, requestAutocomplete,+        js_setAcceptCharset, setAcceptCharset, js_getAcceptCharset,+        getAcceptCharset, js_setAction, setAction, js_getAction, getAction,         js_setAutocomplete, setAutocomplete, js_getAutocomplete,         getAutocomplete, js_setEnctype, setEnctype, js_getEnctype,-        getEnctype, getEnctypeUnchecked, js_setEncoding, setEncoding,-        js_getEncoding, getEncoding, getEncodingUnchecked, js_setMethod,-        setMethod, js_getMethod, getMethod, getMethodUnchecked, js_setName,+        getEnctype, getEnctypeUnsafe, getEnctypeUnchecked, js_setEncoding,+        setEncoding, js_getEncoding, getEncoding, getEncodingUnsafe,+        getEncodingUnchecked, js_setMethod, setMethod, js_getMethod,+        getMethod, getMethodUnsafe, getMethodUnchecked, js_setName,         setName, js_getName, getName, js_setNoValidate, setNoValidate,         js_getNoValidate, getNoValidate, js_setTarget, setTarget,         js_getTarget, getTarget, js_getElements, getElements,-        getElementsUnchecked, js_getLength, getLength, js_setAutocorrect,-        setAutocorrect, js_getAutocorrect, getAutocorrect,-        js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,-        getAutocapitalize, getAutocapitalizeUnchecked, autocomplete,-        autocompleteerror, HTMLFormElement, castToHTMLFormElement,-        gTypeHTMLFormElement)+        getElementsUnsafe, getElementsUnchecked, js_getLength, getLength,+        js_setAutocorrect, setAutocorrect, js_getAutocorrect,+        getAutocorrect, js_setAutocapitalize, setAutocapitalize,+        js_getAutocapitalize, getAutocapitalize, getAutocapitalizeUnsafe,+        getAutocapitalizeUnchecked, autocomplete, autocompleteerror,+        HTMLFormElement(..), gTypeHTMLFormElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -36,6 +43,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::         HTMLFormElement -> Word -> IO (Nullable Element)@@ -50,6 +67,14 @@ _get_ self index = liftIO (void (js__get (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> +_getUnsafe ::+           (MonadIO m, HasCallStack) => HTMLFormElement -> Word -> m Element+_getUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js__get (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation>  _getUnchecked ::               (MonadIO m) => HTMLFormElement -> Word -> m Element _getUnchecked self index@@ -160,6 +185,15 @@   = liftIO (fromMaybeJSString <$> (js_getEnctype (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +getEnctypeUnsafe ::+                 (MonadIO m, HasCallStack, FromJSString result) =>+                   HTMLFormElement -> m result+getEnctypeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getEnctype (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation>  getEnctypeUnchecked ::                     (MonadIO m, FromJSString result) => HTMLFormElement -> m result getEnctypeUnchecked self@@ -185,6 +219,15 @@   = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +getEncodingUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    HTMLFormElement -> m result+getEncodingUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getEncoding (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation>  getEncodingUnchecked ::                      (MonadIO m, FromJSString result) => HTMLFormElement -> m result getEncodingUnchecked self@@ -210,6 +253,15 @@   = liftIO (fromMaybeJSString <$> (js_getMethod (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +getMethodUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  HTMLFormElement -> m result+getMethodUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getMethod (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation>  getMethodUnchecked ::                    (MonadIO m, FromJSString result) => HTMLFormElement -> m result getMethodUnchecked self@@ -271,6 +323,14 @@   = liftIO (nullableToMaybe <$> (js_getElements (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> +getElementsUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLFormElement -> m HTMLCollection+getElementsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getElements (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation>  getElementsUnchecked ::                      (MonadIO m) => HTMLFormElement -> m HTMLCollection getElementsUnchecked self@@ -316,6 +376,15 @@                     HTMLFormElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +getAutocapitalizeUnsafe ::+                        (MonadIO m, HasCallStack, FromJSString result) =>+                          HTMLFormElement -> m result+getAutocapitalizeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation>  getAutocapitalizeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs view
@@ -1,22 +1,29 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement        (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnchecked, js_setFrameBorder, setFrameBorder,-        js_getFrameBorder, getFrameBorder, js_setLongDesc, setLongDesc,-        js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight,-        js_getMarginHeight, getMarginHeight, js_setMarginWidth,-        setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName,-        setName, js_getName, getName, js_setNoResize, setNoResize,-        js_getNoResize, getNoResize, js_setScrolling, setScrolling,-        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,-        getSrc, js_getContentDocument, getContentDocument,+        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setFrameBorder,+        setFrameBorder, js_getFrameBorder, getFrameBorder, js_setLongDesc,+        setLongDesc, js_getLongDesc, getLongDesc, js_setMarginHeight,+        setMarginHeight, js_getMarginHeight, getMarginHeight,+        js_setMarginWidth, setMarginWidth, js_getMarginWidth,+        getMarginWidth, js_setName, setName, js_getName, getName,+        js_setNoResize, setNoResize, js_getNoResize, getNoResize,+        js_setScrolling, setScrolling, js_getScrolling, getScrolling,+        js_setSrc, setSrc, js_getSrc, getSrc, js_getContentDocument,+        getContentDocument, getContentDocumentUnsafe,         getContentDocumentUnchecked, js_getContentWindow, getContentWindow,-        getContentWindowUnchecked, js_setLocation, setLocation,-        js_getLocation, getLocation, getLocationUnchecked, js_getWidth,-        getWidth, js_getHeight, getHeight, HTMLFrameElement,-        castToHTMLFrameElement, gTypeHTMLFrameElement)+        getContentWindowUnsafe, getContentWindowUnchecked, js_setLocation,+        setLocation, js_getLocation, getLocation, getLocationUnsafe,+        getLocationUnchecked, js_getWidth, getWidth, js_getHeight,+        getHeight, HTMLFrameElement(..), gTypeHTMLFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -32,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"         js_getSVGDocument :: HTMLFrameElement -> IO (Nullable SVGDocument)@@ -47,6 +64,14 @@ getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> +getSVGDocumentUnsafe ::+                     (MonadIO m, HasCallStack) => HTMLFrameElement -> m SVGDocument+getSVGDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation>  getSVGDocumentUnchecked ::                         (MonadIO m) => HTMLFrameElement -> m SVGDocument getSVGDocumentUnchecked self@@ -199,6 +224,14 @@   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> +getContentDocumentUnsafe ::+                         (MonadIO m, HasCallStack) => HTMLFrameElement -> m Document+getContentDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation>  getContentDocumentUnchecked ::                             (MonadIO m) => HTMLFrameElement -> m Document getContentDocumentUnchecked self@@ -215,6 +248,14 @@   = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> +getContentWindowUnsafe ::+                       (MonadIO m, HasCallStack) => HTMLFrameElement -> m Window+getContentWindowUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContentWindow (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation>  getContentWindowUnchecked ::                           (MonadIO m) => HTMLFrameElement -> m Window getContentWindowUnchecked self@@ -240,6 +281,15 @@               HTMLFrameElement -> m (Maybe result) getLocation self   = liftIO (fromMaybeJSString <$> (js_getLocation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +getLocationUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    HTMLFrameElement -> m result+getLocationUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLocation (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation>  getLocationUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFrameSetElement        (js_setCols, setCols, js_getCols, getCols, js_setRows, setRows,         js_getRows, getRows, beforeUnload, hashChange, message, offline,         online, popState, resize, storage, unload, orientationChange, blur,-        error, focus, load, HTMLFrameSetElement, castToHTMLFrameSetElement,+        error, focus, load, HTMLFrameSetElement(..),         gTypeHTMLFrameSetElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::         HTMLFrameSetElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLHRElement        (js_setAlign, setAlign, js_getAlign, getAlign, js_setNoShade,         setNoShade, js_getNoShade, getNoShade, js_setSize, setSize,         js_getSize, getSize, js_setWidth, setWidth, js_getWidth, getWidth,-        HTMLHRElement, castToHTMLHRElement, gTypeHTMLHRElement)+        HTMLHRElement(..), gTypeHTMLHRElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLHRElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLHeadElement        (js_setProfile, setProfile, js_getProfile, getProfile,-        HTMLHeadElement, castToHTMLHeadElement, gTypeHTMLHeadElement)+        HTMLHeadElement(..), gTypeHTMLHeadElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"profile\"] = $2;"         js_setProfile :: HTMLHeadElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLHeadingElement-       (js_setAlign, setAlign, js_getAlign, getAlign, HTMLHeadingElement,-        castToHTMLHeadingElement, gTypeHTMLHeadingElement)+       (js_setAlign, setAlign, js_getAlign, getAlign,+        HTMLHeadingElement(..), gTypeHTMLHeadingElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLHeadingElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLHtmlElement        (js_setVersion, setVersion, js_getVersion, getVersion,         js_setManifest, setManifest, js_getManifest, getManifest,-        HTMLHtmlElement, castToHTMLHtmlElement, gTypeHTMLHtmlElement)+        HTMLHtmlElement(..), gTypeHTMLHtmlElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"version\"] = $2;"         js_setVersion :: HTMLHtmlElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -1,23 +1,31 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement        (js_getSVGDocument, getSVGDocument, getSVGDocument_,-        getSVGDocumentUnchecked, js_setAlign, setAlign, js_getAlign,-        getAlign, js_setFrameBorder, setFrameBorder, js_getFrameBorder,-        getFrameBorder, js_setHeight, setHeight, js_getHeight, getHeight,-        js_setLongDesc, setLongDesc, js_getLongDesc, getLongDesc,-        js_setMarginHeight, setMarginHeight, js_getMarginHeight,-        getMarginHeight, js_setMarginWidth, setMarginWidth,-        js_getMarginWidth, getMarginWidth, js_setName, setName, js_getName,-        getName, js_setSandbox, setSandbox, js_getSandbox, getSandbox,-        js_setScrolling, setScrolling, js_getScrolling, getScrolling,-        js_setSrc, setSrc, js_getSrc, getSrc, js_setSrcdoc, setSrcdoc,-        js_getSrcdoc, getSrcdoc, js_setWidth, setWidth, js_getWidth,-        getWidth, js_getContentDocument, getContentDocument,-        getContentDocumentUnchecked, js_getContentWindow, getContentWindow,-        getContentWindowUnchecked, HTMLIFrameElement,-        castToHTMLIFrameElement, gTypeHTMLIFrameElement)+        getSVGDocumentUnsafe, getSVGDocumentUnchecked, js_setAlign,+        setAlign, js_getAlign, getAlign, js_setFrameBorder, setFrameBorder,+        js_getFrameBorder, getFrameBorder, js_setHeight, setHeight,+        js_getHeight, getHeight, js_setLongDesc, setLongDesc,+        js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight,+        js_getMarginHeight, getMarginHeight, js_setMarginWidth,+        setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName,+        setName, js_getName, getName, js_setSandbox, setSandbox,+        js_getSandbox, getSandbox, js_setScrolling, setScrolling,+        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,+        getSrc, js_setSrcdoc, setSrcdoc, js_getSrcdoc, getSrcdoc,+        js_setWidth, setWidth, js_getWidth, getWidth,+        js_getContentDocument, getContentDocument,+        getContentDocumentUnsafe, getContentDocumentUnchecked,+        js_getContentWindow, getContentWindow, getContentWindowUnsafe,+        getContentWindowUnchecked, HTMLIFrameElement(..),+        gTypeHTMLIFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -33,6 +41,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"         js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable SVGDocument)@@ -48,6 +66,14 @@ getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> +getSVGDocumentUnsafe ::+                     (MonadIO m, HasCallStack) => HTMLIFrameElement -> m SVGDocument+getSVGDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation>  getSVGDocumentUnchecked ::                         (MonadIO m) => HTMLIFrameElement -> m SVGDocument getSVGDocumentUnchecked self@@ -268,6 +294,14 @@   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> +getContentDocumentUnsafe ::+                         (MonadIO m, HasCallStack) => HTMLIFrameElement -> m Document+getContentDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation>  getContentDocumentUnchecked ::                             (MonadIO m) => HTMLIFrameElement -> m Document getContentDocumentUnchecked self@@ -282,6 +316,14 @@                  (MonadIO m) => HTMLIFrameElement -> m (Maybe Window) getContentWindow self   = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> +getContentWindowUnsafe ::+                       (MonadIO m, HasCallStack) => HTMLIFrameElement -> m Window+getContentWindowUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContentWindow (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation>  getContentWindowUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLImageElement        (js_setName, setName, js_getName, getName, js_setAlign, setAlign,         js_getAlign, getAlign, js_setAlt, setAlt, js_getAlt, getAlt,@@ -15,10 +20,10 @@         js_getWidth, getWidth, js_getComplete, getComplete, js_setLowsrc,         setLowsrc, js_getLowsrc, getLowsrc, js_getNaturalHeight,         getNaturalHeight, js_getNaturalWidth, getNaturalWidth, js_getX,-        getX, js_getY, getY, HTMLImageElement, castToHTMLImageElement,-        gTypeHTMLImageElement)+        getX, js_getY, getY, HTMLImageElement(..), gTypeHTMLImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -34,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLImageElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLInputElement        (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity,         checkValidity, checkValidity_, js_setCustomValidity,@@ -12,52 +17,57 @@         js_getDefaultChecked, getDefaultChecked, js_setChecked, setChecked,         js_getChecked, getChecked, js_setDirName, setDirName,         js_getDirName, getDirName, js_setDisabled, setDisabled,-        js_getDisabled, getDisabled, js_getForm, getForm, getFormUnchecked,-        js_setFiles, setFiles, js_getFiles, getFiles, getFilesUnchecked,-        js_setFormAction, setFormAction, js_getFormAction, getFormAction,-        js_setFormEnctype, setFormEnctype, js_getFormEnctype,-        getFormEnctype, getFormEnctypeUnchecked, js_setFormMethod,-        setFormMethod, js_getFormMethod, getFormMethod,+        js_getDisabled, getDisabled, js_getForm, getForm, getFormUnsafe,+        getFormUnchecked, js_setFiles, setFiles, js_getFiles, getFiles,+        getFilesUnsafe, getFilesUnchecked, js_setFormAction, setFormAction,+        js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,+        js_getFormEnctype, getFormEnctype, getFormEnctypeUnsafe,+        getFormEnctypeUnchecked, js_setFormMethod, setFormMethod,+        js_getFormMethod, getFormMethod, getFormMethodUnsafe,         getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,         js_getFormNoValidate, getFormNoValidate, js_setFormTarget,         setFormTarget, js_getFormTarget, getFormTarget, js_setHeight,         setHeight, js_getHeight, getHeight, js_setIndeterminate,         setIndeterminate, js_getIndeterminate, getIndeterminate,-        js_getList, getList, getListUnchecked, js_setMax, setMax,-        js_getMax, getMax, js_setMaxLength, setMaxLength, js_getMaxLength,-        getMaxLength, js_setMin, setMin, js_getMin, getMin, js_setMultiple,-        setMultiple, js_getMultiple, getMultiple, js_setName, setName,-        js_getName, getName, js_setPattern, setPattern, js_getPattern,-        getPattern, js_setPlaceholder, setPlaceholder, js_getPlaceholder,-        getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly,-        getReadOnly, js_setRequired, setRequired, js_getRequired,-        getRequired, js_setSize, setSize, js_getSize, getSize, js_setSrc,-        setSrc, js_getSrc, getSrc, js_setStep, setStep, js_getStep,-        getStep, js_setType, setType, js_getType, getType,-        js_setDefaultValue, setDefaultValue, js_getDefaultValue,-        getDefaultValue, getDefaultValueUnchecked, js_setValue, setValue,-        js_getValue, getValue, getValueUnchecked, js_setValueAsDate,+        js_getList, getList, getListUnsafe, getListUnchecked, js_setMax,+        setMax, js_getMax, getMax, js_setMaxLength, setMaxLength,+        js_getMaxLength, getMaxLength, js_setMin, setMin, js_getMin,+        getMin, js_setMultiple, setMultiple, js_getMultiple, getMultiple,+        js_setName, setName, js_getName, getName, js_setPattern,+        setPattern, js_getPattern, getPattern, js_setPlaceholder,+        setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly,+        setReadOnly, js_getReadOnly, getReadOnly, js_setRequired,+        setRequired, js_getRequired, getRequired, js_setSize, setSize,+        js_getSize, getSize, js_setSrc, setSrc, js_getSrc, getSrc,+        js_setStep, setStep, js_getStep, getStep, js_setType, setType,+        js_getType, getType, js_setDefaultValue, setDefaultValue,+        js_getDefaultValue, getDefaultValue, getDefaultValueUnsafe,+        getDefaultValueUnchecked, js_setValue, setValue, js_getValue,+        getValue, getValueUnsafe, getValueUnchecked, js_setValueAsDate,         setValueAsDate, js_getValueAsDate, getValueAsDate,-        getValueAsDateUnchecked, js_setValueAsNumber, setValueAsNumber,-        js_getValueAsNumber, getValueAsNumber, js_setWidth, setWidth,-        js_getWidth, getWidth, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, getValidityUnchecked,-        js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, getLabelsUnchecked, js_setSelectionStart,-        setSelectionStart, js_getSelectionStart, getSelectionStart,-        js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd,-        getSelectionEnd, js_setSelectionDirection, setSelectionDirection,+        getValueAsDateUnsafe, getValueAsDateUnchecked, js_setValueAsNumber,+        setValueAsNumber, js_getValueAsNumber, getValueAsNumber,+        js_setWidth, setWidth, js_getWidth, getWidth, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,+        getLabelsUnchecked, js_setSelectionStart, setSelectionStart,+        js_getSelectionStart, getSelectionStart, js_setSelectionEnd,+        setSelectionEnd, js_getSelectionEnd, getSelectionEnd,+        js_setSelectionDirection, setSelectionDirection,         js_getSelectionDirection, getSelectionDirection, js_setAlign,         setAlign, js_getAlign, getAlign, js_setUseMap, setUseMap,         js_getUseMap, getUseMap, js_setIncremental, setIncremental,         js_getIncremental, getIncremental, js_setAutocorrect,         setAutocorrect, js_getAutocorrect, getAutocorrect,         js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,-        getAutocapitalize, getAutocapitalizeUnchecked, js_setCapture,-        setCapture, js_getCapture, getCapture, HTMLInputElement,-        castToHTMLInputElement, gTypeHTMLInputElement)+        getAutocapitalize, getAutocapitalizeUnsafe,+        getAutocapitalizeUnchecked, js_setCapture, setCapture,+        js_getCapture, getCapture, HTMLInputElement(..),+        gTypeHTMLInputElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -73,6 +83,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp ::         HTMLInputElement -> Int -> IO ()@@ -288,6 +308,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLInputElement -> m HTMLFormElement getFormUnchecked self@@ -310,6 +338,14 @@ getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +getFilesUnsafe ::+               (MonadIO m, HasCallStack) => HTMLInputElement -> m FileList+getFilesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFiles (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  getFilesUnchecked :: (MonadIO m) => HTMLInputElement -> m FileList getFilesUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))@@ -353,6 +389,15 @@   = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +getFormEnctypeUnsafe ::+                     (MonadIO m, HasCallStack, FromJSString result) =>+                       HTMLInputElement -> m result+getFormEnctypeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getFormEnctype (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation>  getFormEnctypeUnchecked ::                         (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormEnctypeUnchecked self@@ -380,6 +425,15 @@   = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +getFormMethodUnsafe ::+                    (MonadIO m, HasCallStack, FromJSString result) =>+                      HTMLInputElement -> m result+getFormMethodUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getFormMethod (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation>  getFormMethodUnchecked ::                        (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormMethodUnchecked self@@ -456,6 +510,14 @@ getList self = liftIO (nullableToMaybe <$> (js_getList (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> +getListUnsafe ::+              (MonadIO m, HasCallStack) => HTMLInputElement -> m HTMLElement+getListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation>  getListUnchecked ::                  (MonadIO m) => HTMLInputElement -> m HTMLElement getListUnchecked self@@ -684,6 +746,15 @@   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +getDefaultValueUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        HTMLInputElement -> m result+getDefaultValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation>  getDefaultValueUnchecked ::                          (MonadIO m, FromJSString result) => HTMLInputElement -> m result getDefaultValueUnchecked self@@ -710,6 +781,15 @@ getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +getValueUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLInputElement -> m result+getValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValueUnchecked self@@ -734,6 +814,14 @@   = liftIO (nullableToMaybe <$> (js_getValueAsDate (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +getValueAsDateUnsafe ::+                     (MonadIO m, HasCallStack) => HTMLInputElement -> m Date+getValueAsDateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValueAsDate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation>  getValueAsDateUnchecked ::                         (MonadIO m) => HTMLInputElement -> m Date getValueAsDateUnchecked self@@ -786,6 +874,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLInputElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLInputElement -> m ValidityState getValidityUnchecked self@@ -808,6 +904,14 @@ getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLInputElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation>  getLabelsUnchecked :: (MonadIO m) => HTMLInputElement -> m NodeList getLabelsUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))@@ -939,6 +1043,15 @@                     HTMLInputElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +getAutocapitalizeUnsafe ::+                        (MonadIO m, HasCallStack, FromJSString result) =>+                          HTMLInputElement -> m result+getAutocapitalizeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation>  getAutocapitalizeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -1,18 +1,25 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_setAutofocus,         setAutofocus, js_getAutofocus, getAutofocus, js_setChallenge,         setChallenge, js_getChallenge, getChallenge, js_setDisabled,         setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        getFormUnchecked, js_setKeytype, setKeytype, js_getKeytype,-        getKeytype, js_setName, setName, js_getName, getName, js_getType,-        getType, js_getWillValidate, getWillValidate, js_getValidity,-        getValidity, getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, getLabelsUnchecked,-        HTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement)+        getFormUnsafe, getFormUnchecked, js_setKeytype, setKeytype,+        js_getKeytype, getKeytype, js_setName, setName, js_getName,+        getName, js_getType, getType, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,+        getLabelsUnchecked, HTMLKeygenElement(..), gTypeHTMLKeygenElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -107,6 +124,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLKeygenElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLKeygenElement -> m HTMLFormElement getFormUnchecked self@@ -170,6 +195,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLKeygenElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLKeygenElement -> m ValidityState getValidityUnchecked self@@ -190,6 +223,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation>  getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLKeygenElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation>  getLabelsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLIElement        (js_setType, setType, js_getType, getType, js_setValue, setValue,-        js_getValue, getValue, HTMLLIElement, castToHTMLLIElement,-        gTypeHTMLLIElement)+        js_getValue, getValue, HTMLLIElement(..), gTypeHTMLLIElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         HTMLLIElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement-       (js_getForm, getForm, getFormUnchecked, js_setHtmlFor, setHtmlFor,-        js_getHtmlFor, getHtmlFor, js_getControl, getControl,-        getControlUnchecked, HTMLLabelElement, castToHTMLLabelElement,-        gTypeHTMLLabelElement)+       (js_getForm, getForm, getFormUnsafe, getFormUnchecked,+        js_setHtmlFor, setHtmlFor, js_getHtmlFor, getHtmlFor,+        js_getControl, getControl, getControlUnsafe, getControlUnchecked,+        HTMLLabelElement(..), gTypeHTMLLabelElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::         HTMLLabelElement -> IO (Nullable HTMLFormElement)@@ -31,6 +47,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLLabelElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLLabelElement -> m HTMLFormElement getFormUnchecked self@@ -61,6 +85,14 @@            (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLElement) getControl self   = liftIO (nullableToMaybe <$> (js_getControl (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> +getControlUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLLabelElement -> m HTMLElement+getControlUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getControl (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation>  getControlUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement-       (js_getForm, getForm, getFormUnchecked, js_setAlign, setAlign,-        js_getAlign, getAlign, HTMLLegendElement, castToHTMLLegendElement,+       (js_getForm, getForm, getFormUnsafe, getFormUnchecked, js_setAlign,+        setAlign, js_getAlign, getAlign, HTMLLegendElement(..),         gTypeHTMLLegendElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::         HTMLLegendElement -> IO (Nullable HTMLFormElement)@@ -28,6 +44,14 @@ getForm ::         (MonadIO m) => HTMLLegendElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLLegendElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation>  getFormUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLLinkElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,         js_setCharset, setCharset, js_getCharset, getCharset, js_setHref,@@ -6,13 +11,14 @@         js_getHreflang, getHreflang, js_setMedia, setMedia, js_getMedia,         getMedia, js_setRel, setRel, js_getRel, getRel, js_setRev, setRev,         js_getRev, getRev, js_setSizes, setSizes, js_getSizes, getSizes,-        getSizesUnchecked, js_setTarget, setTarget, js_getTarget,-        getTarget, js_setType, setType, js_getType, getType, js_getSheet,-        getSheet, getSheetUnchecked, js_getRelList, getRelList,-        getRelListUnchecked, HTMLLinkElement, castToHTMLLinkElement,-        gTypeHTMLLinkElement)+        getSizesUnsafe, getSizesUnchecked, js_setTarget, setTarget,+        js_getTarget, getTarget, js_setType, setType, js_getType, getType,+        js_getSheet, getSheet, getSheetUnsafe, getSheetUnchecked,+        js_getRelList, getRelList, getRelListUnsafe, getRelListUnchecked,+        HTMLLinkElement(..), gTypeHTMLLinkElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"disabled\"] = $2;"         js_setDisabled :: HTMLLinkElement -> Bool -> IO ()@@ -161,6 +177,15 @@ getSizes self = liftIO (nullableToMaybe <$> (js_getSizes (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +getSizesUnsafe ::+               (MonadIO m, HasCallStack) =>+                 HTMLLinkElement -> m DOMSettableTokenList+getSizesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSizes (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation>  getSizesUnchecked ::                   (MonadIO m) => HTMLLinkElement -> m DOMSettableTokenList getSizesUnchecked self@@ -206,6 +231,14 @@ getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> +getSheetUnsafe ::+               (MonadIO m, HasCallStack) => HTMLLinkElement -> m StyleSheet+getSheetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSheet (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation>  getSheetUnchecked :: (MonadIO m) => HTMLLinkElement -> m StyleSheet getSheetUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))@@ -218,6 +251,14 @@            (MonadIO m) => HTMLLinkElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> +getRelListUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLLinkElement -> m DOMTokenList+getRelListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation>  getRelListUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMapElement-       (js_getAreas, getAreas, getAreasUnchecked, js_setName, setName,-        js_getName, getName, HTMLMapElement, castToHTMLMapElement,+       (js_getAreas, getAreas, getAreasUnsafe, getAreasUnchecked,+        js_setName, setName, js_getName, getName, HTMLMapElement(..),         gTypeHTMLMapElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"areas\"]" js_getAreas ::         HTMLMapElement -> IO (Nullable HTMLCollection)@@ -28,6 +44,14 @@ getAreas ::          (MonadIO m) => HTMLMapElement -> m (Maybe HTMLCollection) getAreas self = liftIO (nullableToMaybe <$> (js_getAreas (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> +getAreasUnsafe ::+               (MonadIO m, HasCallStack) => HTMLMapElement -> m HTMLCollection+getAreasUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAreas (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation>  getAreasUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMarqueeElement        (js_start, start, js_stop, stop, js_setBehavior, setBehavior,         js_getBehavior, getBehavior, js_setBgColor, setBgColor,@@ -11,10 +16,10 @@         js_getScrollDelay, getScrollDelay, js_setTrueSpeed, setTrueSpeed,         js_getTrueSpeed, getTrueSpeed, js_setVspace, setVspace,         js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth,-        getWidth, HTMLMarqueeElement, castToHTMLMarqueeElement,-        gTypeHTMLMarqueeElement)+        getWidth, HTMLMarqueeElement(..), gTypeHTMLMarqueeElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"start\"]()" js_start ::         HTMLMarqueeElement -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -1,23 +1,29 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement        (js_load, load, js_canPlayType, canPlayType, canPlayType_, js_play,         play, js_pause, pause, js_fastSeek, fastSeek,         js_webkitGenerateKeyRequest, webkitGenerateKeyRequest,         js_webkitAddKey, webkitAddKey, js_webkitCancelKeyRequest,         webkitCancelKeyRequest, js_webkitSetMediaKeys, webkitSetMediaKeys,-        js_addTextTrack, addTextTrack, addTextTrack_,+        js_addTextTrack, addTextTrack, addTextTrack_, addTextTrackUnsafe,         addTextTrackUnchecked, js_getVideoPlaybackQuality,         getVideoPlaybackQuality, getVideoPlaybackQuality_,-        getVideoPlaybackQualityUnchecked,+        getVideoPlaybackQualityUnsafe, getVideoPlaybackQualityUnchecked,         js_webkitShowPlaybackTargetPicker, webkitShowPlaybackTargetPicker,         pattern NETWORK_EMPTY, pattern NETWORK_IDLE,         pattern NETWORK_LOADING, pattern NETWORK_NO_SOURCE,         pattern HAVE_NOTHING, pattern HAVE_METADATA,         pattern HAVE_CURRENT_DATA, pattern HAVE_FUTURE_DATA,-        pattern HAVE_ENOUGH_DATA, js_getError, getError, getErrorUnchecked,-        js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc,-        getCurrentSrc, js_getNetworkState, getNetworkState, js_setPreload,-        setPreload, js_getPreload, getPreload, js_getBuffered, getBuffered,+        pattern HAVE_ENOUGH_DATA, js_getError, getError, getErrorUnsafe,+        getErrorUnchecked, js_setSrc, setSrc, js_getSrc, getSrc,+        js_getCurrentSrc, getCurrentSrc, js_getNetworkState,+        getNetworkState, js_setPreload, setPreload, js_getPreload,+        getPreload, js_getBuffered, getBuffered, getBufferedUnsafe,         getBufferedUnchecked, js_getReadyState, getReadyState,         js_getSeeking, getSeeking, js_setCurrentTime, setCurrentTime,         js_getCurrentTime, getCurrentTime, js_getDuration, getDuration,@@ -25,40 +31,44 @@         setDefaultPlaybackRate, js_getDefaultPlaybackRate,         getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate,         js_getPlaybackRate, getPlaybackRate, js_getPlayed, getPlayed,-        getPlayedUnchecked, js_getSeekable, getSeekable,-        getSeekableUnchecked, js_getEnded, getEnded, js_setAutoplay,-        setAutoplay, js_getAutoplay, getAutoplay, js_setLoop, setLoop,-        js_getLoop, getLoop, js_setControls, setControls, js_getControls,-        getControls, js_setVolume, setVolume, js_getVolume, getVolume,-        js_setMuted, setMuted, js_getMuted, getMuted, js_setDefaultMuted,-        setDefaultMuted, js_getDefaultMuted, getDefaultMuted, emptied,-        loadedMetadata, loadedData, canPlay, canPlayThrough, playing,-        ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent,-        rateChange, volumeChange, js_setWebkitPreservesPitch,-        setWebkitPreservesPitch, js_getWebkitPreservesPitch,-        getWebkitPreservesPitch, js_getWebkitHasClosedCaptions,-        getWebkitHasClosedCaptions, js_setWebkitClosedCaptionsVisible,-        setWebkitClosedCaptionsVisible, js_getWebkitClosedCaptionsVisible,-        getWebkitClosedCaptionsVisible, js_getWebkitAudioDecodedByteCount,-        getWebkitAudioDecodedByteCount, js_getWebkitVideoDecodedByteCount,-        getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError,-        webKitKeyMessage, webKitNeedKey, js_getWebkitKeys, getWebkitKeys,+        getPlayedUnsafe, getPlayedUnchecked, js_getSeekable, getSeekable,+        getSeekableUnsafe, getSeekableUnchecked, js_getEnded, getEnded,+        js_setAutoplay, setAutoplay, js_getAutoplay, getAutoplay,+        js_setLoop, setLoop, js_getLoop, getLoop, js_setControls,+        setControls, js_getControls, getControls, js_setVolume, setVolume,+        js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted,+        getMuted, js_setDefaultMuted, setDefaultMuted, js_getDefaultMuted,+        getDefaultMuted, emptied, loadedMetadata, loadedData, canPlay,+        canPlayThrough, playing, ended, waiting, durationChange,+        timeUpdate, playEvent, pauseEvent, rateChange, volumeChange,+        js_setWebkitPreservesPitch, setWebkitPreservesPitch,+        js_getWebkitPreservesPitch, getWebkitPreservesPitch,+        js_getWebkitHasClosedCaptions, getWebkitHasClosedCaptions,+        js_setWebkitClosedCaptionsVisible, setWebkitClosedCaptionsVisible,+        js_getWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible,+        js_getWebkitAudioDecodedByteCount, getWebkitAudioDecodedByteCount,+        js_getWebkitVideoDecodedByteCount, getWebkitVideoDecodedByteCount,+        webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey,+        js_getWebkitKeys, getWebkitKeys, getWebkitKeysUnsafe,         getWebkitKeysUnchecked, js_getAudioTracks, getAudioTracks,-        getAudioTracksUnchecked, js_getTextTracks, getTextTracks,-        getTextTracksUnchecked, js_getVideoTracks, getVideoTracks,+        getAudioTracksUnsafe, getAudioTracksUnchecked, js_getTextTracks,+        getTextTracks, getTextTracksUnsafe, getTextTracksUnchecked,+        js_getVideoTracks, getVideoTracks, getVideoTracksUnsafe,         getVideoTracksUnchecked, js_setMediaGroup, setMediaGroup,-        js_getMediaGroup, getMediaGroup, getMediaGroupUnchecked,-        js_setController, setController, js_getController, getController,+        js_getMediaGroup, getMediaGroup, getMediaGroupUnsafe,+        getMediaGroupUnchecked, js_setController, setController,+        js_getController, getController, getControllerUnsafe,         getControllerUnchecked,         js_getWebkitCurrentPlaybackTargetIsWireless,         getWebkitCurrentPlaybackTargetIsWireless,         webKitCurrentPlaybackTargetIsWirelessChanged,         webKitPlaybackTargetAvailabilityChanged, js_setSrcObject,-        setSrcObject, js_getSrcObject, getSrcObject, getSrcObjectUnchecked,-        HTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement,+        setSrcObject, js_getSrcObject, getSrcObject, getSrcObjectUnsafe,+        getSrcObjectUnchecked, HTMLMediaElement(..), gTypeHTMLMediaElement,         IsHTMLMediaElement, toHTMLMediaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -74,6 +84,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"load\"]()" js_load ::         HTMLMediaElement -> IO ()@@ -226,6 +246,19 @@             (toJSString language)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> +addTextTrackUnsafe ::+                   (MonadIO m, IsHTMLMediaElement self, ToJSString kind,+                    ToJSString label, ToJSString language, HasCallStack) =>+                     self -> kind -> label -> language -> m TextTrack+addTextTrackUnsafe self kind label language+  = liftIO+      ((nullableToMaybe <$>+          (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+             (toJSString label)+             (toJSString language)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation>  addTextTrackUnchecked ::                       (MonadIO m, IsHTMLMediaElement self, ToJSString kind,                        ToJSString label, ToJSString language) =>@@ -258,6 +291,16 @@       (void (js_getVideoPlaybackQuality (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> +getVideoPlaybackQualityUnsafe ::+                              (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                                self -> m VideoPlaybackQuality+getVideoPlaybackQualityUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getVideoPlaybackQuality (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation>  getVideoPlaybackQualityUnchecked ::                                  (MonadIO m, IsHTMLMediaElement self) =>                                    self -> m VideoPlaybackQuality@@ -298,6 +341,15 @@       (nullableToMaybe <$> (js_getError (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> +getErrorUnsafe ::+               (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                 self -> m MediaError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (toHTMLMediaElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation>  getErrorUnchecked ::                   (MonadIO m, IsHTMLMediaElement self) => self -> m MediaError getErrorUnchecked self@@ -378,6 +430,15 @@       (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> +getBufferedUnsafe ::+                  (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                    self -> m TimeRanges+getBufferedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation>  getBufferedUnchecked ::                      (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges getBufferedUnchecked self@@ -485,6 +546,15 @@       (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> +getPlayedUnsafe ::+                (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                  self -> m TimeRanges+getPlayedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation>  getPlayedUnchecked ::                    (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges getPlayedUnchecked self@@ -504,6 +574,15 @@       (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> +getSeekableUnsafe ::+                  (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                    self -> m TimeRanges+getSeekableUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation>  getSeekableUnchecked ::                      (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges getSeekableUnchecked self@@ -815,6 +894,15 @@       (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> +getWebkitKeysUnsafe ::+                    (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                      self -> m MediaKeys+getWebkitKeysUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation>  getWebkitKeysUnchecked ::                        (MonadIO m, IsHTMLMediaElement self) => self -> m MediaKeys getWebkitKeysUnchecked self@@ -835,6 +923,16 @@       (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> +getAudioTracksUnsafe ::+                     (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                       self -> m AudioTrackList+getAudioTracksUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getAudioTracks (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation>  getAudioTracksUnchecked ::                         (MonadIO m, IsHTMLMediaElement self) => self -> m AudioTrackList getAudioTracksUnchecked self@@ -854,6 +952,15 @@       (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> +getTextTracksUnsafe ::+                    (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                      self -> m TextTrackList+getTextTracksUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation>  getTextTracksUnchecked ::                        (MonadIO m, IsHTMLMediaElement self) => self -> m TextTrackList getTextTracksUnchecked self@@ -874,6 +981,16 @@       (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> +getVideoTracksUnsafe ::+                     (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                       self -> m VideoTrackList+getVideoTracksUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getVideoTracks (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation>  getVideoTracksUnchecked ::                         (MonadIO m, IsHTMLMediaElement self) => self -> m VideoTrackList getVideoTracksUnchecked self@@ -905,6 +1022,17 @@          (js_getMediaGroup (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +getMediaGroupUnsafe ::+                    (MonadIO m, IsHTMLMediaElement self, HasCallStack,+                     FromJSString result) =>+                      self -> m result+getMediaGroupUnsafe self+  = liftIO+      ((fromMaybeJSString <$>+          (js_getMediaGroup (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation>  getMediaGroupUnchecked ::                        (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>                          self -> m result@@ -938,6 +1066,15 @@       (nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +getControllerUnsafe ::+                    (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                      self -> m MediaController+getControllerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation>  getControllerUnchecked ::                        (MonadIO m, IsHTMLMediaElement self) => self -> m MediaController getControllerUnchecked self@@ -997,6 +1134,16 @@   = liftIO       ((js_getSrcObject (toHTMLMediaElement self)) >>=          fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObjectUnsafe ::+                   (MonadIO m, IsHTMLMediaElement self, HasCallStack) =>+                     self -> m MediaStream+getSrcObjectUnsafe self+  = liftIO+      (((js_getSrcObject (toHTMLMediaElement self)) >>=+          fromJSValUnchecked)+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation>  getSrcObjectUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMenuElement        (js_setCompact, setCompact, js_getCompact, getCompact,-        HTMLMenuElement, castToHTMLMenuElement, gTypeHTMLMenuElement)+        HTMLMenuElement(..), gTypeHTMLMenuElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"compact\"] = $2;"         js_setCompact :: HTMLMenuElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMetaElement        (js_setContent, setContent, js_getContent, getContent,         js_setHttpEquiv, setHttpEquiv, js_getHttpEquiv, getHttpEquiv,         js_setName, setName, js_getName, getName, js_setScheme, setScheme,-        js_getScheme, getScheme, HTMLMetaElement, castToHTMLMetaElement,-        gTypeHTMLMetaElement)+        js_getScheme, getScheme, HTMLMetaElement(..), gTypeHTMLMetaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"content\"] = $2;"         js_setContent :: HTMLMetaElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLMeterElement        (js_setValue, setValue, js_getValue, getValue, js_setMin, setMin,         js_getMin, getMin, js_setMax, setMax, js_getMax, getMax, js_setLow,         setLow, js_getLow, getLow, js_setHigh, setHigh, js_getHigh,         getHigh, js_setOptimum, setOptimum, js_getOptimum, getOptimum,-        js_getLabels, getLabels, getLabelsUnchecked, HTMLMeterElement,-        castToHTMLMeterElement, gTypeHTMLMeterElement)+        js_getLabels, getLabels, getLabelsUnsafe, getLabelsUnchecked,+        HTMLMeterElement(..), gTypeHTMLMeterElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLMeterElement -> Double -> IO ()@@ -114,6 +130,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation>  getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLMeterElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation>  getLabelsUnchecked :: (MonadIO m) => HTMLMeterElement -> m NodeList
src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLModElement        (js_setCite, setCite, js_getCite, getCite, js_setDateTime,-        setDateTime, js_getDateTime, getDateTime, HTMLModElement,-        castToHTMLModElement, gTypeHTMLModElement)+        setDateTime, js_getDateTime, getDateTime, HTMLModElement(..),+        gTypeHTMLModElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::         HTMLModElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOListElement        (js_setCompact, setCompact, js_getCompact, getCompact, js_setStart,         setStart, js_getStart, getStart, js_setReversed, setReversed,         js_getReversed, getReversed, js_setType, setType, js_getType,-        getType, HTMLOListElement, castToHTMLOListElement,-        gTypeHTMLOListElement)+        getType, HTMLOListElement(..), gTypeHTMLOListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"compact\"] = $2;"         js_setCompact :: HTMLOListElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_getSVGDocument,-        getSVGDocument, getSVGDocument_, getSVGDocumentUnchecked,-        js_getForm, getForm, getFormUnchecked, js_setCode, setCode,-        js_getCode, getCode, js_setAlign, setAlign, js_getAlign, getAlign,-        js_setArchive, setArchive, js_getArchive, getArchive, js_setBorder,-        setBorder, js_getBorder, getBorder, js_setCodeBase, setCodeBase,+        getSVGDocument, getSVGDocument_, getSVGDocumentUnsafe,+        getSVGDocumentUnchecked, js_getForm, getForm, getFormUnsafe,+        getFormUnchecked, js_setCode, setCode, js_getCode, getCode,+        js_setAlign, setAlign, js_getAlign, getAlign, js_setArchive,+        setArchive, js_getArchive, getArchive, js_setBorder, setBorder,+        js_getBorder, getBorder, js_setCodeBase, setCodeBase,         js_getCodeBase, getCodeBase, js_setCodeType, setCodeType,         js_getCodeType, getCodeType, js_setData, setData, js_getData,         getData, js_setDeclare, setDeclare, js_getDeclare, getDeclare,@@ -17,12 +23,14 @@         setUseMap, js_getUseMap, getUseMap, js_setVspace, setVspace,         js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth,         getWidth, js_getWillValidate, getWillValidate, js_getValidity,-        getValidity, getValidityUnchecked, js_getValidationMessage,-        getValidationMessage, js_getContentDocument, getContentDocument,-        getContentDocumentUnchecked, HTMLObjectElement,-        castToHTMLObjectElement, gTypeHTMLObjectElement)+        getValidity, getValidityUnsafe, getValidityUnchecked,+        js_getValidationMessage, getValidationMessage,+        js_getContentDocument, getContentDocument,+        getContentDocumentUnsafe, getContentDocumentUnchecked,+        HTMLObjectElement(..), gTypeHTMLObjectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -38,6 +46,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -76,6 +94,14 @@ getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> +getSVGDocumentUnsafe ::+                     (MonadIO m, HasCallStack) => HTMLObjectElement -> m SVGDocument+getSVGDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSVGDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation>  getSVGDocumentUnchecked ::                         (MonadIO m) => HTMLObjectElement -> m SVGDocument getSVGDocumentUnchecked self@@ -91,6 +117,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLObjectElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLObjectElement -> m HTMLFormElement getFormUnchecked self@@ -369,6 +403,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLObjectElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLObjectElement -> m ValidityState getValidityUnchecked self@@ -392,6 +434,14 @@                    (MonadIO m) => HTMLObjectElement -> m (Maybe Document) getContentDocument self   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> +getContentDocumentUnsafe ::+                         (MonadIO m, HasCallStack) => HTMLObjectElement -> m Document+getContentDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContentDocument (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation>  getContentDocumentUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptGroupElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_setLabel, setLabel, js_getLabel, getLabel, HTMLOptGroupElement,-        castToHTMLOptGroupElement, gTypeHTMLOptGroupElement)+        js_setLabel, setLabel, js_getLabel, getLabel,+        HTMLOptGroupElement(..), gTypeHTMLOptGroupElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"disabled\"] = $2;"         js_setDisabled :: HTMLOptGroupElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -1,15 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_getForm, getForm, getFormUnchecked, js_setLabel, setLabel,-        js_getLabel, getLabel, js_setDefaultSelected, setDefaultSelected,-        js_getDefaultSelected, getDefaultSelected, js_setSelected,-        setSelected, js_getSelected, getSelected, js_setValue, setValue,-        js_getValue, getValue, js_setText, setText, js_getText, getText,-        js_getIndex, getIndex, HTMLOptionElement, castToHTMLOptionElement,+        js_getForm, getForm, getFormUnsafe, getFormUnchecked, js_setLabel,+        setLabel, js_getLabel, getLabel, js_setDefaultSelected,+        setDefaultSelected, js_getDefaultSelected, getDefaultSelected,+        js_setSelected, setSelected, js_getSelected, getSelected,+        js_setValue, setValue, js_getValue, getValue, js_setText, setText,+        js_getText, getText, js_getIndex, getIndex, HTMLOptionElement(..),         gTypeHTMLOptionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"disabled\"] = $2;"         js_setDisabled :: HTMLOptionElement -> Bool -> IO ()@@ -47,6 +63,14 @@ getForm ::         (MonadIO m) => HTMLOptionElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLOptionElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation>  getFormUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection-       (js_namedItem, namedItem, namedItem_, namedItemUnchecked,-        js_addBefore, addBefore, js_add, add, js_remove, remove,-        js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex,-        getSelectedIndex, js_setLength, setLength, js_getLength, getLength,-        HTMLOptionsCollection, castToHTMLOptionsCollection,+       (js_namedItem, namedItem, namedItem_, namedItemUnsafe,+        namedItemUnchecked, js_addBefore, addBefore, js_add, add,+        js_remove, remove, js_setSelectedIndex, setSelectedIndex,+        js_getSelectedIndex, getSelectedIndex, js_setLength, setLength,+        js_getLength, getLength, HTMLOptionsCollection(..),         gTypeHTMLOptionsCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::@@ -42,6 +58,15 @@              HTMLOptionsCollection -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  HTMLOptionsCollection -> name -> m Node+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -1,18 +1,25 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_getHtmlFor, getHtmlFor,-        getHtmlForUnchecked, js_getForm, getForm, getFormUnchecked,-        js_setName, setName, js_getName, getName, js_getType, getType,-        js_setDefaultValue, setDefaultValue, js_getDefaultValue,-        getDefaultValue, getDefaultValueUnchecked, js_setValue, setValue,-        js_getValue, getValue, getValueUnchecked, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnchecked,-        js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, getLabelsUnchecked, HTMLOutputElement,-        castToHTMLOutputElement, gTypeHTMLOutputElement)+        getHtmlForUnsafe, getHtmlForUnchecked, js_getForm, getForm,+        getFormUnsafe, getFormUnchecked, js_setName, setName, js_getName,+        getName, js_getType, getType, js_setDefaultValue, setDefaultValue,+        js_getDefaultValue, getDefaultValue, getDefaultValueUnsafe,+        getDefaultValueUnchecked, js_setValue, setValue, js_getValue,+        getValue, getValueUnsafe, getValueUnchecked, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,+        getLabelsUnchecked, HTMLOutputElement(..), gTypeHTMLOutputElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -62,6 +79,15 @@   = liftIO (nullableToMaybe <$> (js_getHtmlFor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> +getHtmlForUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLOutputElement -> m DOMSettableTokenList+getHtmlForUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHtmlFor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation>  getHtmlForUnchecked ::                     (MonadIO m) => HTMLOutputElement -> m DOMSettableTokenList getHtmlForUnchecked self@@ -76,6 +102,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLOutputElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLOutputElement -> m HTMLFormElement getFormUnchecked self@@ -127,6 +161,15 @@   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +getDefaultValueUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        HTMLOutputElement -> m result+getDefaultValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation>  getDefaultValueUnchecked ::                          (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getDefaultValueUnchecked self@@ -153,6 +196,15 @@ getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +getValueUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLOutputElement -> m result+getValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValueUnchecked self@@ -175,6 +227,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLOutputElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLOutputElement -> m ValidityState getValidityUnchecked self@@ -195,6 +255,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation>  getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLOutputElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation>  getLabelsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLParagraphElement        (js_setAlign, setAlign, js_getAlign, getAlign,-        HTMLParagraphElement, castToHTMLParagraphElement,-        gTypeHTMLParagraphElement)+        HTMLParagraphElement(..), gTypeHTMLParagraphElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLParagraphElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLParamElement        (js_setName, setName, js_getName, getName, js_setType, setType,         js_getType, getType, js_setValue, setValue, js_getValue, getValue,         js_setValueType, setValueType, js_getValueType, getValueType,-        HTMLParamElement, castToHTMLParamElement, gTypeHTMLParamElement)+        HTMLParamElement(..), gTypeHTMLParamElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLParamElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLPreElement        (js_setWidth, setWidth, js_getWidth, getWidth, js_setWrap, setWrap,-        js_getWrap, getWrap, HTMLPreElement, castToHTMLPreElement,-        gTypeHTMLPreElement)+        js_getWrap, getWrap, HTMLPreElement(..), gTypeHTMLPreElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLPreElement -> Int -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement        (js_setValue, setValue, js_getValue, getValue, js_setMax, setMax,         js_getMax, getMax, js_getPosition, getPosition, js_getLabels,-        getLabels, getLabelsUnchecked, HTMLProgressElement,-        castToHTMLProgressElement, gTypeHTMLProgressElement)+        getLabels, getLabelsUnsafe, getLabelsUnchecked,+        HTMLProgressElement(..), gTypeHTMLProgressElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLProgressElement -> Double -> IO ()@@ -64,6 +80,14 @@ getLabels ::           (MonadIO m) => HTMLProgressElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLProgressElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation>  getLabelsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLQuoteElement-       (js_setCite, setCite, js_getCite, getCite, HTMLQuoteElement,-        castToHTMLQuoteElement, gTypeHTMLQuoteElement)+       (js_setCite, setCite, js_getCite, getCite, HTMLQuoteElement(..),+        gTypeHTMLQuoteElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::         HTMLQuoteElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement-       (js_setText, setText, js_getText, getText, getTextUnchecked,-        js_setHtmlFor, setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent,-        setEvent, js_getEvent, getEvent, js_setCharset, setCharset,-        js_getCharset, getCharset, js_setAsync, setAsync, js_getAsync,-        getAsync, js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc,-        setSrc, js_getSrc, getSrc, js_setType, setType, js_getType,-        getType, js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin,-        getCrossOrigin, js_setNonce, setNonce, js_getNonce, getNonce,-        HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement)+       (js_setText, setText, js_getText, getText, getTextUnsafe,+        getTextUnchecked, js_setHtmlFor, setHtmlFor, js_getHtmlFor,+        getHtmlFor, js_setEvent, setEvent, js_getEvent, getEvent,+        js_setCharset, setCharset, js_getCharset, getCharset, js_setAsync,+        setAsync, js_getAsync, getAsync, js_setDefer, setDefer,+        js_getDefer, getDefer, js_setSrc, setSrc, js_getSrc, getSrc,+        js_setType, setType, js_getType, getType, js_setCrossOrigin,+        setCrossOrigin, js_getCrossOrigin, getCrossOrigin, js_setNonce,+        setNonce, js_getNonce, getNonce, HTMLScriptElement(..),+        gTypeHTMLScriptElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::         HTMLScriptElement -> Nullable JSString -> IO ()@@ -44,6 +61,15 @@         (MonadIO m, FromJSString result) =>           HTMLScriptElement -> m (Maybe result) getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +getTextUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLScriptElement -> m result+getTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation>  getTextUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -1,27 +1,35 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_addBefore, addBefore, js_add,-        add, js_remove, remove, js_checkValidity, checkValidity,-        checkValidity_, js_setCustomValidity, setCustomValidity,-        js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus,-        js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_getForm, getForm, getFormUnchecked, js_setMultiple, setMultiple,+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_addBefore, addBefore, js_add, add, js_remove, remove,+        js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_setAutofocus,+        setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,+        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,+        getFormUnsafe, getFormUnchecked, js_setMultiple, setMultiple,         js_getMultiple, getMultiple, js_setName, setName, js_getName,         getName, js_setRequired, setRequired, js_getRequired, getRequired,         js_setSize, setSize, js_getSize, getSize, js_getType, getType,-        js_getOptions, getOptions, getOptionsUnchecked, js_setLength,-        setLength, js_getLength, getLength, js_getSelectedOptions,-        getSelectedOptions, getSelectedOptionsUnchecked,+        js_getOptions, getOptions, getOptionsUnsafe, getOptionsUnchecked,+        js_setLength, setLength, js_getLength, getLength,+        js_getSelectedOptions, getSelectedOptions,+        getSelectedOptionsUnsafe, getSelectedOptionsUnchecked,         js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex,         getSelectedIndex, js_setValue, setValue, js_getValue, getValue,-        getValueUnchecked, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, getValidityUnchecked,-        js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, getLabelsUnchecked, HTMLSelectElement,-        castToHTMLSelectElement, gTypeHTMLSelectElement)+        getValueUnsafe, getValueUnchecked, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity, getValidityUnsafe,+        getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnsafe,+        getLabelsUnchecked, HTMLSelectElement(..), gTypeHTMLSelectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -37,6 +45,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         HTMLSelectElement -> Word -> IO (Nullable Node)@@ -51,6 +69,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => HTMLSelectElement -> Word -> m Node+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation>  itemUnchecked :: (MonadIO m) => HTMLSelectElement -> Word -> m Node itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -73,6 +99,15 @@   = liftIO (void (js_namedItem (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  HTMLSelectElement -> name -> m Node+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation>  namedItemUnchecked ::                    (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m Node namedItemUnchecked self name@@ -173,6 +208,14 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) => HTMLSelectElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLSelectElement -> m HTMLFormElement getFormUnchecked self@@ -254,6 +297,15 @@   = liftIO (nullableToMaybe <$> (js_getOptions (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> +getOptionsUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLSelectElement -> m HTMLOptionsCollection+getOptionsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOptions (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation>  getOptionsUnchecked ::                     (MonadIO m) => HTMLSelectElement -> m HTMLOptionsCollection getOptionsUnchecked self@@ -284,6 +336,14 @@   = liftIO (nullableToMaybe <$> (js_getSelectedOptions (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> +getSelectedOptionsUnsafe ::+                         (MonadIO m, HasCallStack) => HTMLSelectElement -> m HTMLCollection+getSelectedOptionsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSelectedOptions (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation>  getSelectedOptionsUnchecked ::                             (MonadIO m) => HTMLSelectElement -> m HTMLCollection getSelectedOptionsUnchecked self@@ -324,6 +384,15 @@ getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +getValueUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLSelectElement -> m result+getValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getValueUnchecked self@@ -346,6 +415,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLSelectElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLSelectElement -> m ValidityState getValidityUnchecked self@@ -366,6 +443,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation>  getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLSelectElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation>  getLabelsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLSourceElement        (js_setSrc, setSrc, js_getSrc, getSrc, js_setType, setType,         js_getType, getType, js_setMedia, setMedia, js_getMedia, getMedia,-        HTMLSourceElement, castToHTMLSourceElement, gTypeHTMLSourceElement)+        HTMLSourceElement(..), gTypeHTMLSourceElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLSourceElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,         js_setMedia, setMedia, js_getMedia, getMedia, js_setType, setType,-        js_getType, getType, js_getSheet, getSheet, getSheetUnchecked,-        HTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement)+        js_getType, getType, js_getSheet, getSheet, getSheetUnsafe,+        getSheetUnchecked, HTMLStyleElement(..), gTypeHTMLStyleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"disabled\"] = $2;"         js_setDisabled :: HTMLStyleElement -> Bool -> IO ()@@ -74,6 +90,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation>  getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> +getSheetUnsafe ::+               (MonadIO m, HasCallStack) => HTMLStyleElement -> m StyleSheet+getSheetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSheet (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation>  getSheetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableCaptionElement        (js_setAlign, setAlign, js_getAlign, getAlign,-        HTMLTableCaptionElement, castToHTMLTableCaptionElement,-        gTypeHTMLTableCaptionElement)+        HTMLTableCaptionElement(..), gTypeHTMLTableCaptionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableCaptionElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableCellElement        (js_getCellIndex, getCellIndex, js_setAbbr, setAbbr, js_getAbbr,         getAbbr, js_setAlign, setAlign, js_getAlign, getAlign, js_setAxis,@@ -11,10 +16,10 @@         js_setRowSpan, setRowSpan, js_getRowSpan, getRowSpan, js_setScope,         setScope, js_getScope, getScope, js_setVAlign, setVAlign,         js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth,-        getWidth, HTMLTableCellElement, castToHTMLTableCellElement,-        gTypeHTMLTableCellElement)+        getWidth, HTMLTableCellElement(..), gTypeHTMLTableCellElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cellIndex\"]"         js_getCellIndex :: HTMLTableCellElement -> IO Int
src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -1,13 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableColElement        (js_setAlign, setAlign, js_getAlign, getAlign, js_setCh, setCh,         js_getCh, getCh, js_setChOff, setChOff, js_getChOff, getChOff,         js_setSpan, setSpan, js_getSpan, getSpan, js_setVAlign, setVAlign,         js_getVAlign, getVAlign, js_setWidth, setWidth, js_getWidth,-        getWidth, HTMLTableColElement, castToHTMLTableColElement,-        gTypeHTMLTableColElement)+        getWidth, HTMLTableColElement(..), gTypeHTMLTableColElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableColElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -1,28 +1,37 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableElement-       (js_createTHead, createTHead, createTHead_, createTHeadUnchecked,-        js_deleteTHead, deleteTHead, js_createTFoot, createTFoot,-        createTFoot_, createTFootUnchecked, js_deleteTFoot, deleteTFoot,-        js_createTBody, createTBody, createTBody_, createTBodyUnchecked,+       (js_createTHead, createTHead, createTHead_, createTHeadUnsafe,+        createTHeadUnchecked, js_deleteTHead, deleteTHead, js_createTFoot,+        createTFoot, createTFoot_, createTFootUnsafe, createTFootUnchecked,+        js_deleteTFoot, deleteTFoot, js_createTBody, createTBody,+        createTBody_, createTBodyUnsafe, createTBodyUnchecked,         js_createCaption, createCaption, createCaption_,-        createCaptionUnchecked, js_deleteCaption, deleteCaption,-        js_insertRow, insertRow, insertRow_, insertRowUnchecked,-        js_deleteRow, deleteRow, js_setCaption, setCaption, js_getCaption,-        getCaption, getCaptionUnchecked, js_setTHead, setTHead,-        js_getTHead, getTHead, getTHeadUnchecked, js_setTFoot, setTFoot,-        js_getTFoot, getTFoot, getTFootUnchecked, js_getRows, getRows,-        getRowsUnchecked, js_getTBodies, getTBodies, getTBodiesUnchecked,-        js_setAlign, setAlign, js_getAlign, getAlign, js_setBgColor,-        setBgColor, js_getBgColor, getBgColor, js_setBorder, setBorder,-        js_getBorder, getBorder, js_setCellPadding, setCellPadding,-        js_getCellPadding, getCellPadding, js_setCellSpacing,-        setCellSpacing, js_getCellSpacing, getCellSpacing, js_setFrame,-        setFrame, js_getFrame, getFrame, js_setRules, setRules,-        js_getRules, getRules, js_setSummary, setSummary, js_getSummary,-        getSummary, js_setWidth, setWidth, js_getWidth, getWidth,-        HTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement)+        createCaptionUnsafe, createCaptionUnchecked, js_deleteCaption,+        deleteCaption, js_insertRow, insertRow, insertRow_,+        insertRowUnsafe, insertRowUnchecked, js_deleteRow, deleteRow,+        js_setCaption, setCaption, js_getCaption, getCaption,+        getCaptionUnsafe, getCaptionUnchecked, js_setTHead, setTHead,+        js_getTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked,+        js_setTFoot, setTFoot, js_getTFoot, getTFoot, getTFootUnsafe,+        getTFootUnchecked, js_getRows, getRows, getRowsUnsafe,+        getRowsUnchecked, js_getTBodies, getTBodies, getTBodiesUnsafe,+        getTBodiesUnchecked, js_setAlign, setAlign, js_getAlign, getAlign,+        js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setBorder,+        setBorder, js_getBorder, getBorder, js_setCellPadding,+        setCellPadding, js_getCellPadding, getCellPadding,+        js_setCellSpacing, setCellSpacing, js_getCellSpacing,+        getCellSpacing, js_setFrame, setFrame, js_getFrame, getFrame,+        js_setRules, setRules, js_getRules, getRules, js_setSummary,+        setSummary, js_getSummary, getSummary, js_setWidth, setWidth,+        js_getWidth, getWidth, HTMLTableElement(..), gTypeHTMLTableElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -38,6 +47,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"createTHead\"]()"         js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement)@@ -53,6 +72,14 @@ createTHead_ self = liftIO (void (js_createTHead (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> +createTHeadUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement+createTHeadUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createTHead (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation>  createTHeadUnchecked ::                      (MonadIO m) => HTMLTableElement -> m HTMLElement createTHeadUnchecked self@@ -79,6 +106,14 @@ createTFoot_ self = liftIO (void (js_createTFoot (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> +createTFootUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement+createTFootUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createTFoot (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation>  createTFootUnchecked ::                      (MonadIO m) => HTMLTableElement -> m HTMLElement createTFootUnchecked self@@ -105,6 +140,14 @@ createTBody_ self = liftIO (void (js_createTBody (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> +createTBodyUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement+createTBodyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createTBody (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation>  createTBodyUnchecked ::                      (MonadIO m) => HTMLTableElement -> m HTMLElement createTBodyUnchecked self@@ -124,6 +167,14 @@ createCaption_ self = liftIO (void (js_createCaption (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> +createCaptionUnsafe ::+                    (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLElement+createCaptionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createCaption (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation>  createCaptionUnchecked ::                        (MonadIO m) => HTMLTableElement -> m HTMLElement createCaptionUnchecked self@@ -151,6 +202,15 @@ insertRow_ self index = liftIO (void (js_insertRow (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> +insertRowUnsafe ::+                (MonadIO m, HasCallStack) =>+                  HTMLTableElement -> Int -> m HTMLElement+insertRowUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_insertRow (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation>  insertRowUnchecked ::                    (MonadIO m) => HTMLTableElement -> Int -> m HTMLElement insertRowUnchecked self index@@ -186,6 +246,15 @@   = liftIO (nullableToMaybe <$> (js_getCaption (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +getCaptionUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLTableElement -> m HTMLTableCaptionElement+getCaptionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCaption (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation>  getCaptionUnchecked ::                     (MonadIO m) => HTMLTableElement -> m HTMLTableCaptionElement getCaptionUnchecked self@@ -211,6 +280,15 @@ getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +getTHeadUnsafe ::+               (MonadIO m, HasCallStack) =>+                 HTMLTableElement -> m HTMLTableSectionElement+getTHeadUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTHead (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation>  getTHeadUnchecked ::                   (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTHeadUnchecked self@@ -236,6 +314,15 @@ getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +getTFootUnsafe ::+               (MonadIO m, HasCallStack) =>+                 HTMLTableElement -> m HTMLTableSectionElement+getTFootUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTFoot (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation>  getTFootUnchecked ::                   (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement getTFootUnchecked self@@ -250,6 +337,14 @@ getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> +getRowsUnsafe ::+              (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection+getRowsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRows (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation>  getRowsUnchecked ::                  (MonadIO m) => HTMLTableElement -> m HTMLCollection getRowsUnchecked self@@ -263,6 +358,14 @@            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self   = liftIO (nullableToMaybe <$> (js_getTBodies (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> +getTBodiesUnsafe ::+                 (MonadIO m, HasCallStack) => HTMLTableElement -> m HTMLCollection+getTBodiesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTBodies (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation>  getTBodiesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -1,16 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement-       (js_insertCell, insertCell, insertCell_, insertCellUnchecked,-        js_deleteCell, deleteCell, js_getRowIndex, getRowIndex,-        js_getSectionRowIndex, getSectionRowIndex, js_getCells, getCells,-        getCellsUnchecked, js_setAlign, setAlign, js_getAlign, getAlign,-        js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setCh,-        setCh, js_getCh, getCh, js_setChOff, setChOff, js_getChOff,-        getChOff, js_setVAlign, setVAlign, js_getVAlign, getVAlign,-        HTMLTableRowElement, castToHTMLTableRowElement,+       (js_insertCell, insertCell, insertCell_, insertCellUnsafe,+        insertCellUnchecked, js_deleteCell, deleteCell, js_getRowIndex,+        getRowIndex, js_getSectionRowIndex, getSectionRowIndex,+        js_getCells, getCells, getCellsUnsafe, getCellsUnchecked,+        js_setAlign, setAlign, js_getAlign, getAlign, js_setBgColor,+        setBgColor, js_getBgColor, getBgColor, js_setCh, setCh, js_getCh,+        getCh, js_setChOff, setChOff, js_getChOff, getChOff, js_setVAlign,+        setVAlign, js_getVAlign, getVAlign, HTMLTableRowElement(..),         gTypeHTMLTableRowElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertCell\"]($2)"         js_insertCell ::@@ -42,6 +58,15 @@ insertCell_ self index = liftIO (void (js_insertCell (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> +insertCellUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLTableRowElement -> Int -> m HTMLElement+insertCellUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_insertCell (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation>  insertCellUnchecked ::                     (MonadIO m) => HTMLTableRowElement -> Int -> m HTMLElement insertCellUnchecked self index@@ -76,6 +101,15 @@ getCells ::          (MonadIO m) => HTMLTableRowElement -> m (Maybe HTMLCollection) getCells self = liftIO (nullableToMaybe <$> (js_getCells (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> +getCellsUnsafe ::+               (MonadIO m, HasCallStack) =>+                 HTMLTableRowElement -> m HTMLCollection+getCellsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCells (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation>  getCellsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement-       (js_insertRow, insertRow, insertRow_, insertRowUnchecked,-        js_deleteRow, deleteRow, js_setAlign, setAlign, js_getAlign,-        getAlign, js_setCh, setCh, js_getCh, getCh, js_setChOff, setChOff,-        js_getChOff, getChOff, js_setVAlign, setVAlign, js_getVAlign,-        getVAlign, js_getRows, getRows, getRowsUnchecked,-        HTMLTableSectionElement, castToHTMLTableSectionElement,+       (js_insertRow, insertRow, insertRow_, insertRowUnsafe,+        insertRowUnchecked, js_deleteRow, deleteRow, js_setAlign, setAlign,+        js_getAlign, getAlign, js_setCh, setCh, js_getCh, getCh,+        js_setChOff, setChOff, js_getChOff, getChOff, js_setVAlign,+        setVAlign, js_getVAlign, getVAlign, js_getRows, getRows,+        getRowsUnsafe, getRowsUnchecked, HTMLTableSectionElement(..),         gTypeHTMLTableSectionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertRow\"]($2)"         js_insertRow ::@@ -41,6 +57,15 @@ insertRow_ self index = liftIO (void (js_insertRow (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> +insertRowUnsafe ::+                (MonadIO m, HasCallStack) =>+                  HTMLTableSectionElement -> Int -> m HTMLElement+insertRowUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_insertRow (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation>  insertRowUnchecked ::                    (MonadIO m) => HTMLTableSectionElement -> Int -> m HTMLElement insertRowUnchecked self index@@ -133,6 +158,15 @@ getRows ::         (MonadIO m) => HTMLTableSectionElement -> m (Maybe HTMLCollection) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> +getRowsUnsafe ::+              (MonadIO m, HasCallStack) =>+                HTMLTableSectionElement -> m HTMLCollection+getRowsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRows (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation>  getRowsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement-       (js_getContent, getContent, getContentUnchecked,-        HTMLTemplateElement, castToHTMLTemplateElement,-        gTypeHTMLTemplateElement)+       (js_getContent, getContent, getContentUnsafe, getContentUnchecked,+        HTMLTemplateElement(..), gTypeHTMLTemplateElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"content\"]" js_getContent ::         HTMLTemplateElement -> IO (Nullable DocumentFragment)@@ -29,6 +44,15 @@            (MonadIO m) => HTMLTemplateElement -> m (Maybe DocumentFragment) getContent self   = liftIO (nullableToMaybe <$> (js_getContent (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> +getContentUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   HTMLTemplateElement -> m DocumentFragment+getContentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getContent (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation>  getContentUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement        (js_checkValidity, checkValidity, checkValidity_,         js_setCustomValidity, setCustomValidity, js_select, select,@@ -7,7 +12,7 @@         setAutofocus, js_getAutofocus, getAutofocus, js_setCols, setCols,         js_getCols, getCols, js_setDirName, setDirName, js_getDirName,         getDirName, js_setDisabled, setDisabled, js_getDisabled,-        getDisabled, js_getForm, getForm, getFormUnchecked,+        getDisabled, js_getForm, getForm, getFormUnsafe, getFormUnchecked,         js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength,         js_setName, setName, js_getName, getName, js_setPlaceholder,         setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly,@@ -15,22 +20,25 @@         setRequired, js_getRequired, getRequired, js_setRows, setRows,         js_getRows, getRows, js_setWrap, setWrap, js_getWrap, getWrap,         js_getType, getType, js_setDefaultValue, setDefaultValue,-        js_getDefaultValue, getDefaultValue, getDefaultValueUnchecked,-        js_setValue, setValue, js_getValue, getValue, getValueUnchecked,-        js_getTextLength, getTextLength, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity, getValidityUnchecked,+        js_getDefaultValue, getDefaultValue, getDefaultValueUnsafe,+        getDefaultValueUnchecked, js_setValue, setValue, js_getValue,+        getValue, getValueUnsafe, getValueUnchecked, js_getTextLength,+        getTextLength, js_getWillValidate, getWillValidate, js_getValidity,+        getValidity, getValidityUnsafe, getValidityUnchecked,         js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, getLabelsUnchecked, js_setSelectionStart,-        setSelectionStart, js_getSelectionStart, getSelectionStart,-        js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd,-        getSelectionEnd, js_setSelectionDirection, setSelectionDirection,-        js_getSelectionDirection, getSelectionDirection, js_setAutocorrect,-        setAutocorrect, js_getAutocorrect, getAutocorrect,-        js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,-        getAutocapitalize, getAutocapitalizeUnchecked, HTMLTextAreaElement,-        castToHTMLTextAreaElement, gTypeHTMLTextAreaElement)+        getLabels, getLabelsUnsafe, getLabelsUnchecked,+        js_setSelectionStart, setSelectionStart, js_getSelectionStart,+        getSelectionStart, js_setSelectionEnd, setSelectionEnd,+        js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection,+        setSelectionDirection, js_getSelectionDirection,+        getSelectionDirection, js_setAutocorrect, setAutocorrect,+        js_getAutocorrect, getAutocorrect, js_setAutocapitalize,+        setAutocapitalize, js_getAutocapitalize, getAutocapitalize,+        getAutocapitalizeUnsafe, getAutocapitalizeUnchecked,+        HTMLTextAreaElement(..), gTypeHTMLTextAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -46,6 +54,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::@@ -182,6 +200,15 @@ getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> +getFormUnsafe ::+              (MonadIO m, HasCallStack) =>+                HTMLTextAreaElement -> m HTMLFormElement+getFormUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getForm (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation>  getFormUnchecked ::                  (MonadIO m) => HTMLTextAreaElement -> m HTMLFormElement getFormUnchecked self@@ -323,6 +350,15 @@   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +getDefaultValueUnsafe ::+                      (MonadIO m, HasCallStack, FromJSString result) =>+                        HTMLTextAreaElement -> m result+getDefaultValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getDefaultValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation>  getDefaultValueUnchecked ::                          (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getDefaultValueUnchecked self@@ -349,6 +385,15 @@ getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +getValueUnsafe ::+               (MonadIO m, HasCallStack, FromJSString result) =>+                 HTMLTextAreaElement -> m result+getValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation>  getValueUnchecked ::                   (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValueUnchecked self@@ -378,6 +423,14 @@   = liftIO (nullableToMaybe <$> (js_getValidity (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> +getValidityUnsafe ::+                  (MonadIO m, HasCallStack) => HTMLTextAreaElement -> m ValidityState+getValidityUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValidity (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation>  getValidityUnchecked ::                      (MonadIO m) => HTMLTextAreaElement -> m ValidityState getValidityUnchecked self@@ -401,6 +454,14 @@ getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> +getLabelsUnsafe ::+                (MonadIO m, HasCallStack) => HTMLTextAreaElement -> m NodeList+getLabelsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLabels (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation>  getLabelsUnchecked ::                    (MonadIO m) => HTMLTextAreaElement -> m NodeList getLabelsUnchecked self@@ -492,6 +553,15 @@                     HTMLTextAreaElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +getAutocapitalizeUnsafe ::+                        (MonadIO m, HasCallStack, FromJSString result) =>+                          HTMLTextAreaElement -> m result+getAutocapitalizeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation>  getAutocapitalizeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement-       (js_setText, setText, js_getText, getText, getTextUnchecked,-        HTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement)+       (js_setText, setText, js_getText, getText, getTextUnsafe,+        getTextUnchecked, HTMLTitleElement(..), gTypeHTMLTitleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::         HTMLTitleElement -> Nullable JSString -> IO ()@@ -37,6 +53,15 @@         (MonadIO m, FromJSString result) =>           HTMLTitleElement -> m (Maybe result) getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +getTextUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                HTMLTitleElement -> m result+getTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation>  getTextUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLTrackElement        (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR,         js_setKind, setKind, js_getKind, getKind, js_setSrc, setSrc,@@ -6,10 +11,11 @@         getSrclang, js_setLabel, setLabel, js_getLabel, getLabel,         js_setDefault, setDefault, js_getDefault, getDefault,         js_getReadyState, getReadyState, js_getTrack, getTrack,-        getTrackUnchecked, HTMLTrackElement, castToHTMLTrackElement,+        getTrackUnsafe, getTrackUnchecked, HTMLTrackElement(..),         gTypeHTMLTrackElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern NONE = 0 pattern LOADING = 1 pattern LOADED = 2@@ -122,6 +138,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation>  getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> +getTrackUnsafe ::+               (MonadIO m, HasCallStack) => HTMLTrackElement -> m TextTrack+getTrackUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTrack (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation>  getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack
src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLUListElement        (js_setCompact, setCompact, js_getCompact, getCompact, js_setType,-        setType, js_getType, getType, HTMLUListElement,-        castToHTMLUListElement, gTypeHTMLUListElement)+        setType, js_getType, getType, HTMLUListElement(..),+        gTypeHTMLUListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"compact\"] = $2;"         js_setCompact :: HTMLUListElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLVideoElement        (js_webkitEnterFullscreen, webkitEnterFullscreen,         js_webkitExitFullscreen, webkitExitFullscreen,@@ -19,10 +24,11 @@         js_getWebkitDecodedFrameCount, getWebkitDecodedFrameCount,         js_getWebkitDroppedFrameCount, getWebkitDroppedFrameCount,         js_getWebkitPresentationMode, getWebkitPresentationMode,-        webKitPresentationModeChanged, HTMLVideoElement,-        castToHTMLVideoElement, gTypeHTMLVideoElement)+        webKitPresentationModeChanged, HTMLVideoElement(..),+        gTypeHTMLVideoElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -38,6 +44,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"         js_webkitEnterFullscreen :: HTMLVideoElement -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HashChangeEvent        (js_initHashChangeEvent, initHashChangeEvent, js_getOldURL,-        getOldURL, js_getNewURL, getNewURL, HashChangeEvent,-        castToHashChangeEvent, gTypeHashChangeEvent)+        getOldURL, js_getNewURL, getNewURL, HashChangeEvent(..),+        gTypeHashChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)"
src/GHCJS/DOM/JSFFI/Generated/History.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.History        (js_back, back, js_forward, forward, js_go, go, js_pushState,         pushState, js_replaceState, replaceState, js_getLength, getLength,-        js_getState, getState, getStateUnchecked, History, castToHistory,-        gTypeHistory)+        js_getState, getState, getStateUnsafe, getStateUnchecked,+        History(..), gTypeHistory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"back\"]()" js_back ::         History -> IO ()@@ -80,6 +96,14 @@ getState ::          (MonadIO m) => History -> m (Maybe SerializedScriptValue) getState self = liftIO (nullableToMaybe <$> (js_getState (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> +getStateUnsafe ::+               (MonadIO m, HasCallStack) => History -> m SerializedScriptValue+getStateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getState (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation>  getStateUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBCursor-       (js_update, update, update_, updateUnchecked, js_advance, advance,-        js_continue, continue, js_delete, delete, delete_, deleteUnchecked,-        js_getSource, getSource, getSourceUnchecked, js_getDirection,-        getDirection, js_getKey, getKey, js_getPrimaryKey, getPrimaryKey,-        IDBCursor, castToIDBCursor, gTypeIDBCursor, IsIDBCursor,-        toIDBCursor)+       (js_update, update, update_, updateUnsafe, updateUnchecked,+        js_advance, advance, js_continue, continue, js_delete, delete,+        delete_, deleteUnsafe, deleteUnchecked, js_getSource, getSource,+        getSourceUnsafe, getSourceUnchecked, js_getDirection, getDirection,+        js_getKey, getKey, js_getPrimaryKey, getPrimaryKey, IDBCursor(..),+        gTypeIDBCursor, IsIDBCursor, toIDBCursor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::         IDBCursor -> JSVal -> IO (Nullable IDBRequest)@@ -40,6 +56,15 @@   = liftIO (void (js_update (toIDBCursor self) value))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> +updateUnsafe ::+             (MonadIO m, IsIDBCursor self, HasCallStack) =>+               self -> JSVal -> m IDBRequest+updateUnsafe self value+  = liftIO+      ((nullableToMaybe <$> (js_update (toIDBCursor self) value)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation>  updateUnchecked ::                 (MonadIO m, IsIDBCursor self) => self -> JSVal -> m IDBRequest updateUnchecked self value@@ -75,6 +100,14 @@ delete_ self = liftIO (void (js_delete (toIDBCursor self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> +deleteUnsafe ::+             (MonadIO m, IsIDBCursor self, HasCallStack) => self -> m IDBRequest+deleteUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_delete (toIDBCursor self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation>  deleteUnchecked ::                 (MonadIO m, IsIDBCursor self) => self -> m IDBRequest deleteUnchecked self@@ -89,6 +122,14 @@           (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBAny) getSource self   = liftIO (nullableToMaybe <$> (js_getSource (toIDBCursor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> +getSourceUnsafe ::+                (MonadIO m, IsIDBCursor self, HasCallStack) => self -> m IDBAny+getSourceUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSource (toIDBCursor self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation>  getSourceUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBCursorWithValue-       (js_getValue, getValue, IDBCursorWithValue,-        castToIDBCursorWithValue, gTypeIDBCursorWithValue)+       (js_getValue, getValue, IDBCursorWithValue(..),+        gTypeIDBCursorWithValue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::         IDBCursorWithValue -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs view
@@ -1,15 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBDatabase        (js_createObjectStore, createObjectStore, createObjectStore_,-        createObjectStoreUnchecked, js_deleteObjectStore,-        deleteObjectStore, js_transaction, transaction, transaction_,-        transactionUnchecked, js_transaction', transaction', transaction'_,+        createObjectStoreUnsafe, createObjectStoreUnchecked,+        js_deleteObjectStore, deleteObjectStore, js_transaction,+        transaction, transaction_, transactionUnsafe, transactionUnchecked,+        js_transaction', transaction', transaction'_, transaction'Unsafe,         transaction'Unchecked, js_close, close, js_getName, getName,         js_getVersion, getVersion, js_getObjectStoreNames,-        getObjectStoreNames, getObjectStoreNamesUnchecked, abort, error,-        versionChange, IDBDatabase, castToIDBDatabase, gTypeIDBDatabase)+        getObjectStoreNames, getObjectStoreNamesUnsafe,+        getObjectStoreNamesUnchecked, abort, error, versionChange,+        IDBDatabase(..), gTypeIDBDatabase)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore ::@@ -52,6 +70,17 @@             (maybeToNullable (fmap toDictionary options))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> +createObjectStoreUnsafe ::+                        (MonadIO m, ToJSString name, IsDictionary options, HasCallStack) =>+                          IDBDatabase -> name -> Maybe options -> m IDBObjectStore+createObjectStoreUnsafe self name options+  = liftIO+      ((nullableToMaybe <$>+          (js_createObjectStore (self) (toJSString name)+             (maybeToNullable (fmap toDictionary options))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation>  createObjectStoreUnchecked ::                            (MonadIO m, ToJSString name, IsDictionary options) =>                              IDBDatabase -> name -> Maybe options -> m IDBObjectStore@@ -93,6 +122,16 @@          (js_transaction (self) (toJSString storeName) (toJSString mode)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transactionUnsafe ::+                  (MonadIO m, ToJSString storeName, ToJSString mode, HasCallStack) =>+                    IDBDatabase -> storeName -> mode -> m IDBTransaction+transactionUnsafe self storeName mode+  = liftIO+      ((nullableToMaybe <$>+          (js_transaction (self) (toJSString storeName) (toJSString mode)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation>  transactionUnchecked ::                      (MonadIO m, ToJSString storeName, ToJSString mode) =>                        IDBDatabase -> storeName -> mode -> m IDBTransaction@@ -128,6 +167,19 @@             (toJSString mode)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction'Unsafe ::+                   (MonadIO m, ToJSString storeNames, ToJSString mode,+                    HasCallStack) =>+                     IDBDatabase -> [storeNames] -> mode -> m IDBTransaction+transaction'Unsafe self storeNames mode+  = liftIO+      ((nullableToMaybe <$>+          (toJSVal storeNames >>=+             \ storeNames' -> js_transaction' (self) storeNames'+             (toJSString mode)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation>  transaction'Unchecked ::                       (MonadIO m, ToJSString storeNames, ToJSString mode) =>                         IDBDatabase -> [storeNames] -> mode -> m IDBTransaction@@ -169,6 +221,14 @@                     (MonadIO m) => IDBDatabase -> m (Maybe DOMStringList) getObjectStoreNames self   = liftIO (nullableToMaybe <$> (js_getObjectStoreNames (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> +getObjectStoreNamesUnsafe ::+                          (MonadIO m, HasCallStack) => IDBDatabase -> m DOMStringList+getObjectStoreNamesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getObjectStoreNames (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation>  getObjectStoreNamesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBFactory-       (js_open, open, open_, openUnchecked, js_deleteDatabase,-        deleteDatabase, deleteDatabase_, deleteDatabaseUnchecked, js_cmp,-        cmp, cmp_, IDBFactory, castToIDBFactory, gTypeIDBFactory)+       (js_open, open, open_, openUnsafe, openUnchecked,+        js_deleteDatabase, deleteDatabase, deleteDatabase_,+        deleteDatabaseUnsafe, deleteDatabaseUnchecked, js_cmp, cmp, cmp_,+        IDBFactory(..), gTypeIDBFactory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open ::         IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest)@@ -42,6 +59,16 @@       (void (js_open (self) (toJSString name) (fromIntegral version)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> +openUnsafe ::+           (MonadIO m, ToJSString name, HasCallStack) =>+             IDBFactory -> name -> Word64 -> m IDBOpenDBRequest+openUnsafe self name version+  = liftIO+      ((nullableToMaybe <$>+          (js_open (self) (toJSString name) (fromIntegral version)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation>  openUnchecked ::               (MonadIO m, ToJSString name) =>                 IDBFactory -> name -> Word64 -> m IDBOpenDBRequest@@ -67,6 +94,15 @@                 (MonadIO m, ToJSString name) => IDBFactory -> name -> m () deleteDatabase_ self name   = liftIO (void (js_deleteDatabase (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> +deleteDatabaseUnsafe ::+                     (MonadIO m, ToJSString name, HasCallStack) =>+                       IDBFactory -> name -> m IDBOpenDBRequest+deleteDatabaseUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation>  deleteDatabaseUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs view
@@ -1,21 +1,31 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBIndex        (js_openCursorRange, openCursorRange, openCursorRange_,-        openCursorRangeUnchecked, js_openCursor, openCursor, openCursor_,-        openCursorUnchecked, js_openKeyCursorRange, openKeyCursorRange,-        openKeyCursorRange_, openKeyCursorRangeUnchecked, js_openKeyCursor,-        openKeyCursor, openKeyCursor_, openKeyCursorUnchecked, js_getRange,-        getRange, getRange_, getRangeUnchecked, js_get, get, get_,-        getUnchecked, js_getKeyRange, getKeyRange, getKeyRange_,-        getKeyRangeUnchecked, js_getKey, getKey, getKey_, getKeyUnchecked,-        js_countRange, countRange, countRange_, countRangeUnchecked,-        js_count, count, count_, countUnchecked, js_getName, getName,-        js_getObjectStore, getObjectStore, getObjectStoreUnchecked,-        js_getKeyPath, getKeyPath, getKeyPathUnchecked, js_getMultiEntry,-        getMultiEntry, js_getUnique, getUnique, IDBIndex, castToIDBIndex,+        openCursorRangeUnsafe, openCursorRangeUnchecked, js_openCursor,+        openCursor, openCursor_, openCursorUnsafe, openCursorUnchecked,+        js_openKeyCursorRange, openKeyCursorRange, openKeyCursorRange_,+        openKeyCursorRangeUnsafe, openKeyCursorRangeUnchecked,+        js_openKeyCursor, openKeyCursor, openKeyCursor_,+        openKeyCursorUnsafe, openKeyCursorUnchecked, js_getRange, getRange,+        getRange_, getRangeUnsafe, getRangeUnchecked, js_get, get, get_,+        getUnsafe, getUnchecked, js_getKeyRange, getKeyRange, getKeyRange_,+        getKeyRangeUnsafe, getKeyRangeUnchecked, js_getKey, getKey,+        getKey_, getKeyUnsafe, getKeyUnchecked, js_countRange, countRange,+        countRange_, countRangeUnsafe, countRangeUnchecked, js_count,+        count, count_, countUnsafe, countUnchecked, js_getName, getName,+        js_getObjectStore, getObjectStore, getObjectStoreUnsafe,+        getObjectStoreUnchecked, js_getKeyPath, getKeyPath,+        getKeyPathUnsafe, getKeyPathUnchecked, js_getMultiEntry,+        getMultiEntry, js_getUnique, getUnique, IDBIndex(..),         gTypeIDBIndex)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -31,6 +41,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::@@ -58,6 +78,17 @@             (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorRangeUnsafe ::+                      (MonadIO m, ToJSString direction, HasCallStack) =>+                        IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest+openCursorRangeUnsafe self range direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openCursorRange (self) (maybeToNullable range)+             (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation>  openCursorRangeUnchecked ::                          (MonadIO m, ToJSString direction) =>                            IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest@@ -88,6 +119,16 @@   = liftIO (void (js_openCursor (self) key (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorUnsafe ::+                 (MonadIO m, ToJSString direction, HasCallStack) =>+                   IDBIndex -> JSVal -> direction -> m IDBRequest+openCursorUnsafe self key direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openCursor (self) key (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation>  openCursorUnchecked ::                     (MonadIO m, ToJSString direction) =>                       IDBIndex -> JSVal -> direction -> m IDBRequest@@ -122,6 +163,17 @@             (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorRangeUnsafe ::+                         (MonadIO m, ToJSString direction, HasCallStack) =>+                           IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest+openKeyCursorRangeUnsafe self range direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openKeyCursorRange (self) (maybeToNullable range)+             (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation>  openKeyCursorRangeUnchecked ::                             (MonadIO m, ToJSString direction) =>                               IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest@@ -153,6 +205,16 @@       (void (js_openKeyCursor (self) key (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorUnsafe ::+                    (MonadIO m, ToJSString direction, HasCallStack) =>+                      IDBIndex -> JSVal -> direction -> m IDBRequest+openKeyCursorUnsafe self key direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openKeyCursor (self) key (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation>  openKeyCursorUnchecked ::                        (MonadIO m, ToJSString direction) =>                          IDBIndex -> JSVal -> direction -> m IDBRequest@@ -178,6 +240,15 @@   = liftIO (void (js_getRange (self) (maybeToNullable key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getRangeUnsafe ::+               (MonadIO m, HasCallStack) =>+                 IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+getRangeUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation>  getRangeUnchecked ::                   (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getRangeUnchecked self key@@ -197,6 +268,14 @@ get_ self key = liftIO (void (js_get (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getUnsafe ::+          (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest+getUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_get (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation>  getUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest getUnchecked self key   = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key))@@ -220,6 +299,16 @@   = liftIO (void (js_getKeyRange (self) (maybeToNullable key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyRangeUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+getKeyRangeUnsafe self key+  = liftIO+      ((nullableToMaybe <$>+          (js_getKeyRange (self) (maybeToNullable key)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation>  getKeyRangeUnchecked ::                      (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest getKeyRangeUnchecked self key@@ -240,6 +329,14 @@ getKey_ self key = liftIO (void (js_getKey (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyUnsafe ::+             (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest+getKeyUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_getKey (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation>  getKeyUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest getKeyUnchecked self key   = liftIO (fromJust . nullableToMaybe <$> (js_getKey (self) key))@@ -262,6 +359,16 @@   = liftIO (void (js_countRange (self) (maybeToNullable range)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countRangeUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+countRangeUnsafe self range+  = liftIO+      ((nullableToMaybe <$>+          (js_countRange (self) (maybeToNullable range)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation>  countRangeUnchecked ::                     (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest countRangeUnchecked self range@@ -281,6 +388,14 @@ count_ self key = liftIO (void (js_count (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countUnsafe ::+            (MonadIO m, HasCallStack) => IDBIndex -> JSVal -> m IDBRequest+countUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_count (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation>  countUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest countUnchecked self key   = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key))@@ -302,6 +417,14 @@   = liftIO (nullableToMaybe <$> (js_getObjectStore (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> +getObjectStoreUnsafe ::+                     (MonadIO m, HasCallStack) => IDBIndex -> m IDBObjectStore+getObjectStoreUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getObjectStore (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation>  getObjectStoreUnchecked ::                         (MonadIO m) => IDBIndex -> m IDBObjectStore getObjectStoreUnchecked self@@ -315,6 +438,14 @@ getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self   = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> +getKeyPathUnsafe ::+                 (MonadIO m, HasCallStack) => IDBIndex -> m IDBAny+getKeyPathUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKeyPath (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation>  getKeyPathUnchecked :: (MonadIO m) => IDBIndex -> m IDBAny
src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBKeyRange-       (js_only, only, only_, onlyUnchecked, js_lowerBound, lowerBound,-        lowerBound_, lowerBoundUnchecked, js_upperBound, upperBound,-        upperBound_, upperBoundUnchecked, js_bound, bound, bound_,+       (js_only, only, only_, onlyUnsafe, onlyUnchecked, js_lowerBound,+        lowerBound, lowerBound_, lowerBoundUnsafe, lowerBoundUnchecked,+        js_upperBound, upperBound, upperBound_, upperBoundUnsafe,+        upperBoundUnchecked, js_bound, bound, bound_, boundUnsafe,         boundUnchecked, js_getLower, getLower, js_getUpper, getUpper,         js_getLowerOpen, getLowerOpen, js_getUpperOpen, getUpperOpen,-        IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange)+        IDBKeyRange(..), gTypeIDBKeyRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"only\"]($2)" js_only ::         IDBKeyRange -> JSVal -> IO (Nullable IDBKeyRange)@@ -38,6 +55,14 @@ only_ self value = liftIO (void (js_only (self) value))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> +onlyUnsafe ::+           (MonadIO m, HasCallStack) => IDBKeyRange -> JSVal -> m IDBKeyRange+onlyUnsafe self value+  = liftIO+      ((nullableToMaybe <$> (js_only (self) value)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation>  onlyUnchecked ::               (MonadIO m) => IDBKeyRange -> JSVal -> m IDBKeyRange onlyUnchecked self value@@ -60,6 +85,15 @@   = liftIO (void (js_lowerBound (self) lower open))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> +lowerBoundUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange+lowerBoundUnsafe self lower open+  = liftIO+      ((nullableToMaybe <$> (js_lowerBound (self) lower open)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation>  lowerBoundUnchecked ::                     (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange lowerBoundUnchecked self lower open@@ -83,6 +117,15 @@   = liftIO (void (js_upperBound (self) upper open))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> +upperBoundUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange+upperBoundUnsafe self upper open+  = liftIO+      ((nullableToMaybe <$> (js_upperBound (self) upper open)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation>  upperBoundUnchecked ::                     (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange upperBoundUnchecked self upper open@@ -110,6 +153,16 @@          IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m () bound_ self lower upper lowerOpen upperOpen   = liftIO (void (js_bound (self) lower upper lowerOpen upperOpen))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> +boundUnsafe ::+            (MonadIO m, HasCallStack) =>+              IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange+boundUnsafe self lower upper lowerOpen upperOpen+  = liftIO+      ((nullableToMaybe <$>+          (js_bound (self) lower upper lowerOpen upperOpen))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation>  boundUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs view
@@ -1,25 +1,35 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBObjectStore-       (js_put, put, put_, putUnchecked, js_add, add, add_, addUnchecked,-        js_deleteRange, deleteRange, deleteRange_, deleteRangeUnchecked,-        js_delete, delete, delete_, deleteUnchecked, js_getRange, getRange,-        getRange_, getRangeUnchecked, js_get, get, get_, getUnchecked,-        js_clear, clear, clear_, clearUnchecked, js_openCursorRange,-        openCursorRange, openCursorRange_, openCursorRangeUnchecked,-        js_openCursor, openCursor, openCursor_, openCursorUnchecked,-        js_createIndex', createIndex', createIndex'_,-        createIndex'Unchecked, js_createIndex, createIndex, createIndex_,-        createIndexUnchecked, js_index, index, index_, indexUnchecked,+       (js_put, put, put_, putUnsafe, putUnchecked, js_add, add, add_,+        addUnsafe, addUnchecked, js_deleteRange, deleteRange, deleteRange_,+        deleteRangeUnsafe, deleteRangeUnchecked, js_delete, delete,+        delete_, deleteUnsafe, deleteUnchecked, js_getRange, getRange,+        getRange_, getRangeUnsafe, getRangeUnchecked, js_get, get, get_,+        getUnsafe, getUnchecked, js_clear, clear, clear_, clearUnsafe,+        clearUnchecked, js_openCursorRange, openCursorRange,+        openCursorRange_, openCursorRangeUnsafe, openCursorRangeUnchecked,+        js_openCursor, openCursor, openCursor_, openCursorUnsafe,+        openCursorUnchecked, js_createIndex', createIndex', createIndex'_,+        createIndex'Unsafe, createIndex'Unchecked, js_createIndex,+        createIndex, createIndex_, createIndexUnsafe, createIndexUnchecked,+        js_index, index, index_, indexUnsafe, indexUnchecked,         js_deleteIndex, deleteIndex, js_countRange, countRange,-        countRange_, countRangeUnchecked, js_count, count, count_,-        countUnchecked, js_getName, getName, getNameUnchecked,-        js_getKeyPath, getKeyPath, getKeyPathUnchecked, js_getIndexNames,-        getIndexNames, getIndexNamesUnchecked, js_getTransaction,-        getTransaction, getTransactionUnchecked, js_getAutoIncrement,-        getAutoIncrement, IDBObjectStore, castToIDBObjectStore,-        gTypeIDBObjectStore)+        countRange_, countRangeUnsafe, countRangeUnchecked, js_count,+        count, count_, countUnsafe, countUnchecked, js_getName, getName,+        getNameUnsafe, getNameUnchecked, js_getKeyPath, getKeyPath,+        getKeyPathUnsafe, getKeyPathUnchecked, js_getIndexNames,+        getIndexNames, getIndexNamesUnsafe, getIndexNamesUnchecked,+        js_getTransaction, getTransaction, getTransactionUnsafe,+        getTransactionUnchecked, js_getAutoIncrement, getAutoIncrement,+        IDBObjectStore(..), gTypeIDBObjectStore)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -35,6 +45,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put ::         IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)@@ -51,6 +71,15 @@ put_ self value key = liftIO (void (js_put (self) value key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> +putUnsafe ::+          (MonadIO m, HasCallStack) =>+            IDBObjectStore -> JSVal -> JSVal -> m IDBRequest+putUnsafe self value key+  = liftIO+      ((nullableToMaybe <$> (js_put (self) value key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation>  putUnchecked ::              (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest putUnchecked self value key@@ -71,6 +100,15 @@ add_ self value key = liftIO (void (js_add (self) value key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> +addUnsafe ::+          (MonadIO m, HasCallStack) =>+            IDBObjectStore -> JSVal -> JSVal -> m IDBRequest+addUnsafe self value key+  = liftIO+      ((nullableToMaybe <$> (js_add (self) value key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation>  addUnchecked ::              (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest addUnchecked self value key@@ -96,6 +134,16 @@   = liftIO (void (js_deleteRange (self) (maybeToNullable keyRange)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteRangeUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+deleteRangeUnsafe self keyRange+  = liftIO+      ((nullableToMaybe <$>+          (js_deleteRange (self) (maybeToNullable keyRange)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  deleteRangeUnchecked ::                      (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest deleteRangeUnchecked self keyRange@@ -117,6 +165,15 @@ delete_ self key = liftIO (void (js_delete (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteUnsafe ::+             (MonadIO m, HasCallStack) =>+               IDBObjectStore -> JSVal -> m IDBRequest+deleteUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_delete (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  deleteUnchecked ::                 (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest deleteUnchecked self key@@ -140,6 +197,15 @@   = liftIO (void (js_getRange (self) (maybeToNullable key)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getRangeUnsafe ::+               (MonadIO m, HasCallStack) =>+                 IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+getRangeUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation>  getRangeUnchecked ::                   (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest getRangeUnchecked self key@@ -160,6 +226,15 @@ get_ self key = liftIO (void (js_get (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getUnsafe ::+          (MonadIO m, HasCallStack) =>+            IDBObjectStore -> JSVal -> m IDBRequest+getUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_get (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation>  getUnchecked ::              (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest getUnchecked self key@@ -177,6 +252,14 @@ clear_ self = liftIO (void (js_clear (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> +clearUnsafe ::+            (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBRequest+clearUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_clear (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation>  clearUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBRequest clearUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_clear (self)))@@ -208,6 +291,17 @@             (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorRangeUnsafe ::+                      (MonadIO m, ToJSString direction, HasCallStack) =>+                        IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest+openCursorRangeUnsafe self range direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openCursorRange (self) (maybeToNullable range)+             (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursorRangeUnchecked ::                          (MonadIO m, ToJSString direction) =>                            IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest@@ -238,6 +332,16 @@   = liftIO (void (js_openCursor (self) key (toJSString direction)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorUnsafe ::+                 (MonadIO m, ToJSString direction, HasCallStack) =>+                   IDBObjectStore -> JSVal -> direction -> m IDBRequest+openCursorUnsafe self key direction+  = liftIO+      ((nullableToMaybe <$>+          (js_openCursor (self) key (toJSString direction)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursorUnchecked ::                     (MonadIO m, ToJSString direction) =>                       IDBObjectStore -> JSVal -> direction -> m IDBRequest@@ -277,6 +381,19 @@             (maybeToNullable (fmap toDictionary options))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex'Unsafe ::+                   (MonadIO m, ToJSString name, ToJSString keyPath,+                    IsDictionary options, HasCallStack) =>+                     IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex+createIndex'Unsafe self name keyPath options+  = liftIO+      ((nullableToMaybe <$>+          (toJSVal keyPath >>=+             \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'+             (maybeToNullable (fmap toDictionary options))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation>  createIndex'Unchecked ::                       (MonadIO m, ToJSString name, ToJSString keyPath,                        IsDictionary options) =>@@ -318,6 +435,18 @@             (maybeToNullable (fmap toDictionary options))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndexUnsafe ::+                  (MonadIO m, ToJSString name, ToJSString keyPath,+                   IsDictionary options, HasCallStack) =>+                    IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex+createIndexUnsafe self name keyPath options+  = liftIO+      ((nullableToMaybe <$>+          (js_createIndex (self) (toJSString name) (toJSString keyPath)+             (maybeToNullable (fmap toDictionary options))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation>  createIndexUnchecked ::                      (MonadIO m, ToJSString name, ToJSString keyPath,                       IsDictionary options) =>@@ -345,6 +474,15 @@   = liftIO (void (js_index (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> +indexUnsafe ::+            (MonadIO m, ToJSString name, HasCallStack) =>+              IDBObjectStore -> name -> m IDBIndex+indexUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_index (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation>  indexUnchecked ::                (MonadIO m, ToJSString name) =>                  IDBObjectStore -> name -> m IDBIndex@@ -382,6 +520,16 @@   = liftIO (void (js_countRange (self) (maybeToNullable range)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countRangeUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+countRangeUnsafe self range+  = liftIO+      ((nullableToMaybe <$>+          (js_countRange (self) (maybeToNullable range)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation>  countRangeUnchecked ::                     (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest countRangeUnchecked self range@@ -402,6 +550,15 @@ count_ self key = liftIO (void (js_count (self) key))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countUnsafe ::+            (MonadIO m, HasCallStack) =>+              IDBObjectStore -> JSVal -> m IDBRequest+countUnsafe self key+  = liftIO+      ((nullableToMaybe <$> (js_count (self) key)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation>  countUnchecked ::                (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest countUnchecked self key@@ -417,6 +574,15 @@ getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> +getNameUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                IDBObjectStore -> m result+getNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getName (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation>  getNameUnchecked ::                  (MonadIO m, FromJSString result) => IDBObjectStore -> m result getNameUnchecked self@@ -431,6 +597,14 @@   = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> +getKeyPathUnsafe ::+                 (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBAny+getKeyPathUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKeyPath (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation>  getKeyPathUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBAny getKeyPathUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self)))@@ -445,6 +619,14 @@   = liftIO (nullableToMaybe <$> (js_getIndexNames (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> +getIndexNamesUnsafe ::+                    (MonadIO m, HasCallStack) => IDBObjectStore -> m DOMStringList+getIndexNamesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIndexNames (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation>  getIndexNamesUnchecked ::                        (MonadIO m) => IDBObjectStore -> m DOMStringList getIndexNamesUnchecked self@@ -458,6 +640,14 @@                (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self   = liftIO (nullableToMaybe <$> (js_getTransaction (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> +getTransactionUnsafe ::+                     (MonadIO m, HasCallStack) => IDBObjectStore -> m IDBTransaction+getTransactionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTransaction (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation>  getTransactionUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBOpenDBRequest-       (blocked, upgradeNeeded, IDBOpenDBRequest, castToIDBOpenDBRequest,+       (blocked, upgradeNeeded, IDBOpenDBRequest(..),         gTypeIDBOpenDBRequest)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBOpenDBRequest.onblocked Mozilla IDBOpenDBRequest.onblocked documentation>  blocked :: EventName IDBOpenDBRequest IDBVersionChangeEvent
src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBRequest-       (js_getResult, getResult, getResultUnchecked, js_getError,-        getError, getErrorUnchecked, js_getSource, getSource,-        getSourceUnchecked, js_getTransaction, getTransaction,+       (js_getResult, getResult, getResultUnsafe, getResultUnchecked,+        js_getError, getError, getErrorUnsafe, getErrorUnchecked,+        js_getSource, getSource, getSourceUnsafe, getSourceUnchecked,+        js_getTransaction, getTransaction, getTransactionUnsafe,         getTransactionUnchecked, js_getReadyState, getReadyState, success,-        error, IDBRequest, castToIDBRequest, gTypeIDBRequest, IsIDBRequest,-        toIDBRequest)+        error, IDBRequest(..), gTypeIDBRequest, IsIDBRequest, toIDBRequest)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::         IDBRequest -> IO (Nullable IDBAny)@@ -34,6 +50,14 @@   = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation> +getResultUnsafe ::+                (MonadIO m, IsIDBRequest self, HasCallStack) => self -> m IDBAny+getResultUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getResult (toIDBRequest self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation>  getResultUnchecked ::                    (MonadIO m, IsIDBRequest self) => self -> m IDBAny getResultUnchecked self@@ -50,6 +74,14 @@   = liftIO (nullableToMaybe <$> (js_getError (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation> +getErrorUnsafe ::+               (MonadIO m, IsIDBRequest self, HasCallStack) => self -> m DOMError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (toIDBRequest self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation>  getErrorUnchecked ::                   (MonadIO m, IsIDBRequest self) => self -> m DOMError getErrorUnchecked self@@ -66,6 +98,14 @@   = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation> +getSourceUnsafe ::+                (MonadIO m, IsIDBRequest self, HasCallStack) => self -> m IDBAny+getSourceUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSource (toIDBRequest self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation>  getSourceUnchecked ::                    (MonadIO m, IsIDBRequest self) => self -> m IDBAny getSourceUnchecked self@@ -81,6 +121,15 @@ getTransaction self   = liftIO       (nullableToMaybe <$> (js_getTransaction (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> +getTransactionUnsafe ::+                     (MonadIO m, IsIDBRequest self, HasCallStack) =>+                       self -> m IDBTransaction+getTransactionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTransaction (toIDBRequest self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation>  getTransactionUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBTransaction-       (js_objectStore, objectStore, objectStore_, objectStoreUnchecked,-        js_abort, abort, js_getMode, getMode, js_getDb, getDb,-        getDbUnchecked, js_getError, getError, getErrorUnchecked,-        abortEvent, complete, error, IDBTransaction, castToIDBTransaction,-        gTypeIDBTransaction)+       (js_objectStore, objectStore, objectStore_, objectStoreUnsafe,+        objectStoreUnchecked, js_abort, abort, js_getMode, getMode,+        js_getDb, getDb, getDbUnsafe, getDbUnchecked, js_getError,+        getError, getErrorUnsafe, getErrorUnchecked, abortEvent, complete,+        error, IDBTransaction(..), gTypeIDBTransaction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"objectStore\"]($2)"         js_objectStore ::@@ -42,6 +58,15 @@   = liftIO (void (js_objectStore (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> +objectStoreUnsafe ::+                  (MonadIO m, ToJSString name, HasCallStack) =>+                    IDBTransaction -> name -> m IDBObjectStore+objectStoreUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_objectStore (self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation>  objectStoreUnchecked ::                      (MonadIO m, ToJSString name) =>                        IDBTransaction -> name -> m IDBObjectStore@@ -73,6 +98,14 @@ getDb self = liftIO (nullableToMaybe <$> (js_getDb (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> +getDbUnsafe ::+            (MonadIO m, HasCallStack) => IDBTransaction -> m IDBDatabase+getDbUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDb (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation>  getDbUnchecked :: (MonadIO m) => IDBTransaction -> m IDBDatabase getDbUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getDb (self)))@@ -83,6 +116,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation>  getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> +getErrorUnsafe ::+               (MonadIO m, HasCallStack) => IDBTransaction -> m DOMError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation>  getErrorUnchecked :: (MonadIO m) => IDBTransaction -> m DOMError
src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent        (js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion,-        getNewVersionUnchecked, IDBVersionChangeEvent,-        castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent)+        getNewVersionUnsafe, getNewVersionUnchecked,+        IDBVersionChangeEvent(..), gTypeIDBVersionChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"oldVersion\"]"         js_getOldVersion :: IDBVersionChangeEvent -> IO Double@@ -37,6 +53,14 @@ getNewVersion self   = liftIO       (fmap round . nullableToMaybe <$> (js_getNewVersion (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> +getNewVersionUnsafe ::+                    (MonadIO m, HasCallStack) => IDBVersionChangeEvent -> m Word64+getNewVersionUnsafe self+  = liftIO+      ((fmap round . nullableToMaybe <$> (js_getNewVersion (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation>  getNewVersionUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/ImageData.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ImageData        (js_newImageData, newImageData, js_newImageData', newImageData',-        js_getWidth, getWidth, js_getHeight, getHeight, ImageData,-        castToImageData, gTypeImageData)+        js_getWidth, getWidth, js_getHeight, getHeight, ImageData(..),+        gTypeImageData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData ::
src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.InspectorFrontendHost        (js_loaded, loaded, js_closeWindow, closeWindow, js_bringToFront,         bringToFront, js_setZoomFactor, setZoomFactor,@@ -17,10 +22,11 @@         sendMessageToBackend, js_unbufferedLog, unbufferedLog,         js_isUnderTest, isUnderTest, isUnderTest_, js_beep, beep,         js_canInspectWorkers, canInspectWorkers, canInspectWorkers_,-        js_canSaveAs, canSaveAs, canSaveAs_, InspectorFrontendHost,-        castToInspectorFrontendHost, gTypeInspectorFrontendHost)+        js_canSaveAs, canSaveAs, canSaveAs_, InspectorFrontendHost(..),+        gTypeInspectorFrontendHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -36,6 +42,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"loaded\"]()" js_loaded ::         InspectorFrontendHost -> IO ()
src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.InternalSettings        (js_setTouchEventEmulationEnabled, setTouchEventEmulationEnabled,         js_setStandardFontFamily, setStandardFontFamily,@@ -37,9 +42,10 @@         setBackgroundShouldExtendBeyondPage,         js_setScrollingTreeIncludesFrames, setScrollingTreeIncludesFrames,         js_setMinimumTimerInterval, setMinimumTimerInterval,-        InternalSettings, castToInternalSettings, gTypeInternalSettings)+        InternalSettings(..), gTypeInternalSettings)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -55,6 +61,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"setTouchEventEmulationEnabled\"]($2)"
src/GHCJS/DOM/JSFFI/Generated/Internals.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Internals        (js_address, address, address_, js_nodeNeedsStyleRecalc,         nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_, js_description,@@ -16,17 +21,20 @@         js_computedStyleIncludingVisitedInfo,         computedStyleIncludingVisitedInfo,         computedStyleIncludingVisitedInfo_,+        computedStyleIncludingVisitedInfoUnsafe,         computedStyleIncludingVisitedInfoUnchecked, js_ensureShadowRoot,-        ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnchecked,-        js_createShadowRoot, createShadowRoot, createShadowRoot_,+        ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnsafe,+        ensureShadowRootUnchecked, js_createShadowRoot, createShadowRoot,+        createShadowRoot_, createShadowRootUnsafe,         createShadowRootUnchecked, js_shadowRoot, shadowRoot, shadowRoot_,-        shadowRootUnchecked, js_shadowRootType, shadowRootType,-        shadowRootType_, js_includerFor, includerFor, includerFor_,-        includerForUnchecked, js_shadowPseudoId, shadowPseudoId,-        shadowPseudoId_, js_setShadowPseudoId, setShadowPseudoId,-        js_treeScopeRootNode, treeScopeRootNode, treeScopeRootNode_,+        shadowRootUnsafe, shadowRootUnchecked, js_shadowRootType,+        shadowRootType, shadowRootType_, js_includerFor, includerFor,+        includerFor_, includerForUnsafe, includerForUnchecked,+        js_shadowPseudoId, shadowPseudoId, shadowPseudoId_,+        js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode,+        treeScopeRootNode, treeScopeRootNode_, treeScopeRootNodeUnsafe,         treeScopeRootNodeUnchecked, js_parentTreeScope, parentTreeScope,-        parentTreeScope_, parentTreeScopeUnchecked,+        parentTreeScope_, parentTreeScopeUnsafe, parentTreeScopeUnchecked,         js_lastSpatialNavigationCandidateCount,         lastSpatialNavigationCandidateCount,         lastSpatialNavigationCandidateCount_, js_numberOfActiveAnimations,@@ -53,13 +61,15 @@         js_setFormControlStateOfPreviousHistoryItem,         setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds,         absoluteCaretBounds, absoluteCaretBounds_,-        absoluteCaretBoundsUnchecked, js_boundingBox, boundingBox,-        boundingBox_, boundingBoxUnchecked, js_inspectorHighlightRects,+        absoluteCaretBoundsUnsafe, absoluteCaretBoundsUnchecked,+        js_boundingBox, boundingBox, boundingBox_, boundingBoxUnsafe,+        boundingBoxUnchecked, js_inspectorHighlightRects,         inspectorHighlightRects, inspectorHighlightRects_,-        inspectorHighlightRectsUnchecked, js_inspectorHighlightObject,-        inspectorHighlightObject, inspectorHighlightObject_,-        js_markerCountForNode, markerCountForNode, markerCountForNode_,-        js_markerRangeForNode, markerRangeForNode, markerRangeForNode_,+        inspectorHighlightRectsUnsafe, inspectorHighlightRectsUnchecked,+        js_inspectorHighlightObject, inspectorHighlightObject,+        inspectorHighlightObject_, js_markerCountForNode,+        markerCountForNode, markerCountForNode_, js_markerRangeForNode,+        markerRangeForNode, markerRangeForNode_, markerRangeForNodeUnsafe,         markerRangeForNodeUnchecked, js_markerDescriptionForNode,         markerDescriptionForNode, markerDescriptionForNode_,         js_addTextMatchMarker, addTextMatchMarker,@@ -76,14 +86,15 @@         countMatchesForText, countMatchesForText_, js_paintControlTints,         paintControlTints, js_scrollElementToRect, scrollElementToRect,         js_rangeFromLocationAndLength, rangeFromLocationAndLength,-        rangeFromLocationAndLength_, rangeFromLocationAndLengthUnchecked,-        js_locationFromRange, locationFromRange, locationFromRange_,-        js_lengthFromRange, lengthFromRange, lengthFromRange_,-        js_rangeAsText, rangeAsText, rangeAsText_, js_subrange, subrange,-        subrange_, subrangeUnchecked,-        js_rangeForDictionaryLookupAtLocation,+        rangeFromLocationAndLength_, rangeFromLocationAndLengthUnsafe,+        rangeFromLocationAndLengthUnchecked, js_locationFromRange,+        locationFromRange, locationFromRange_, js_lengthFromRange,+        lengthFromRange, lengthFromRange_, js_rangeAsText, rangeAsText,+        rangeAsText_, js_subrange, subrange, subrange_, subrangeUnsafe,+        subrangeUnchecked, js_rangeForDictionaryLookupAtLocation,         rangeForDictionaryLookupAtLocation,         rangeForDictionaryLookupAtLocation_,+        rangeForDictionaryLookupAtLocationUnsafe,         rangeForDictionaryLookupAtLocationUnchecked,         js_setDelegatesScrolling, setDelegatesScrolling,         js_lastSpellCheckRequestSequence, lastSpellCheckRequestSequence,@@ -95,13 +106,13 @@         wheelEventHandlerCount, wheelEventHandlerCount_,         js_touchEventHandlerCount, touchEventHandlerCount,         touchEventHandlerCount_, js_nodesFromRect, nodesFromRect,-        nodesFromRect_, nodesFromRectUnchecked, js_parserMetaData,-        parserMetaData, parserMetaData_, js_updateEditorUINowIfScheduled,-        updateEditorUINowIfScheduled, js_hasSpellingMarker,-        hasSpellingMarker, hasSpellingMarker_, js_hasGrammarMarker,-        hasGrammarMarker, hasGrammarMarker_, js_hasAutocorrectedMarker,-        hasAutocorrectedMarker, hasAutocorrectedMarker_,-        js_setContinuousSpellCheckingEnabled,+        nodesFromRect_, nodesFromRectUnsafe, nodesFromRectUnchecked,+        js_parserMetaData, parserMetaData, parserMetaData_,+        js_updateEditorUINowIfScheduled, updateEditorUINowIfScheduled,+        js_hasSpellingMarker, hasSpellingMarker, hasSpellingMarker_,+        js_hasGrammarMarker, hasGrammarMarker, hasGrammarMarker_,+        js_hasAutocorrectedMarker, hasAutocorrectedMarker,+        hasAutocorrectedMarker_, js_setContinuousSpellCheckingEnabled,         setContinuousSpellCheckingEnabled,         js_setAutomaticQuoteSubstitutionEnabled,         setAutomaticQuoteSubstitutionEnabled,@@ -123,8 +134,8 @@         js_mainThreadScrollingReasons, mainThreadScrollingReasons,         mainThreadScrollingReasons_, js_nonFastScrollableRects,         nonFastScrollableRects, nonFastScrollableRects_,-        nonFastScrollableRectsUnchecked, js_repaintRectsAsText,-        repaintRectsAsText, repaintRectsAsText_,+        nonFastScrollableRectsUnsafe, nonFastScrollableRectsUnchecked,+        js_repaintRectsAsText, repaintRectsAsText, repaintRectsAsText_,         js_garbageCollectDocumentResources,         garbageCollectDocumentResources, js_allowRoundingHacks,         allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS,@@ -135,7 +146,8 @@         numberOfLiveDocuments_, js_consoleMessageArgumentCounts,         consoleMessageArgumentCounts, consoleMessageArgumentCounts_,         js_openDummyInspectorFrontend, openDummyInspectorFrontend,-        openDummyInspectorFrontend_, openDummyInspectorFrontendUnchecked,+        openDummyInspectorFrontend_, openDummyInspectorFrontendUnsafe,+        openDummyInspectorFrontendUnchecked,         js_closeDummyInspectorFrontend, closeDummyInspectorFrontend,         js_setJavaScriptProfilingEnabled, setJavaScriptProfilingEnabled,         js_setInspectorIsUnderTest, setInspectorIsUnderTest,@@ -162,9 +174,10 @@         js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,         removeURLSchemeRegisteredAsBypassingContentSecurityPolicy,         js_mallocStatistics, mallocStatistics, mallocStatistics_,-        mallocStatisticsUnchecked, js_typeConversions, typeConversions,-        typeConversions_, typeConversionsUnchecked, js_memoryInfo,-        memoryInfo, memoryInfo_, memoryInfoUnchecked,+        mallocStatisticsUnsafe, mallocStatisticsUnchecked,+        js_typeConversions, typeConversions, typeConversions_,+        typeConversionsUnsafe, typeConversionsUnchecked, js_memoryInfo,+        memoryInfo, memoryInfo_, memoryInfoUnsafe, memoryInfoUnchecked,         js_getReferencedFilePaths, getReferencedFilePaths,         getReferencedFilePaths_, js_startTrackingRepaints,         startTrackingRepaints, js_stopTrackingRepaints,@@ -177,8 +190,9 @@         markerTextForListItem, markerTextForListItem_,         js_toolTipFromElement, toolTipFromElement, toolTipFromElement_,         js_deserializeBuffer, deserializeBuffer, deserializeBuffer_,-        deserializeBufferUnchecked, js_serializeObject, serializeObject,-        serializeObject_, serializeObjectUnchecked,+        deserializeBufferUnsafe, deserializeBufferUnchecked,+        js_serializeObject, serializeObject, serializeObject_,+        serializeObjectUnsafe, serializeObjectUnchecked,         js_setUsesOverlayScrollbars, setUsesOverlayScrollbars,         js_forceReload, forceReload, js_simulateAudioInterruption,         simulateAudioInterruption, js_mediaElementHasCharacteristic,@@ -192,42 +206,44 @@         js_setPrimaryAudioTrackLanguageOverride,         setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode,         setCaptionDisplayMode, js_createTimeRanges, createTimeRanges,-        createTimeRanges_, createTimeRangesUnchecked,-        js_closestTimeToTimeRanges, closestTimeToTimeRanges,-        closestTimeToTimeRanges_, js_isSelectPopupVisible,-        isSelectPopupVisible, isSelectPopupVisible_, js_isVibrating,-        isVibrating, isVibrating_,+        createTimeRanges_, createTimeRangesUnsafe,+        createTimeRangesUnchecked, js_closestTimeToTimeRanges,+        closestTimeToTimeRanges, closestTimeToTimeRanges_,+        js_isSelectPopupVisible, isSelectPopupVisible,+        isSelectPopupVisible_, js_isVibrating, isVibrating, isVibrating_,         js_isPluginUnavailabilityIndicatorObscured,         isPluginUnavailabilityIndicatorObscured,         isPluginUnavailabilityIndicatorObscured_, js_isPluginSnapshotted,         isPluginSnapshotted, isPluginSnapshotted_, js_selectionBounds,-        selectionBounds, selectionBounds_, selectionBoundsUnchecked,-        js_initializeMockMediaSource, initializeMockMediaSource,-        js_bufferedSamplesForTrackID, bufferedSamplesForTrackID,-        bufferedSamplesForTrackID_, js_beginMediaSessionInterruption,-        beginMediaSessionInterruption, js_endMediaSessionInterruption,-        endMediaSessionInterruption, js_applicationWillEnterForeground,-        applicationWillEnterForeground, js_applicationWillEnterBackground,-        applicationWillEnterBackground, js_setMediaSessionRestrictions,-        setMediaSessionRestrictions, js_postRemoteControlCommand,-        postRemoteControlCommand, js_simulateSystemSleep,-        simulateSystemSleep, js_simulateSystemWake, simulateSystemWake,-        js_elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep,-        elementIsBlockingDisplaySleep_, js_installMockPageOverlay,-        installMockPageOverlay, js_pageOverlayLayerTreeAsText,-        pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText_,-        js_setPageMuted, setPageMuted, js_isPagePlayingAudio,-        isPagePlayingAudio, isPagePlayingAudio_,+        selectionBounds, selectionBounds_, selectionBoundsUnsafe,+        selectionBoundsUnchecked, js_initializeMockMediaSource,+        initializeMockMediaSource, js_bufferedSamplesForTrackID,+        bufferedSamplesForTrackID, bufferedSamplesForTrackID_,+        js_beginMediaSessionInterruption, beginMediaSessionInterruption,+        js_endMediaSessionInterruption, endMediaSessionInterruption,+        js_applicationWillEnterForeground, applicationWillEnterForeground,+        js_applicationWillEnterBackground, applicationWillEnterBackground,+        js_setMediaSessionRestrictions, setMediaSessionRestrictions,+        js_postRemoteControlCommand, postRemoteControlCommand,+        js_simulateSystemSleep, simulateSystemSleep, js_simulateSystemWake,+        simulateSystemWake, js_elementIsBlockingDisplaySleep,+        elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep_,+        js_installMockPageOverlay, installMockPageOverlay,+        js_pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText,+        pageOverlayLayerTreeAsText_, js_setPageMuted, setPageMuted,+        js_isPagePlayingAudio, isPagePlayingAudio, isPagePlayingAudio_,         pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS,         pattern LAYER_TREE_INCLUDES_TILE_CACHES,         pattern LAYER_TREE_INCLUDES_REPAINT_RECTS,         pattern LAYER_TREE_INCLUDES_PAINTING_PHASES,         pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, js_getSettings,-        getSettings, getSettingsUnchecked, js_getWorkerThreadCount,-        getWorkerThreadCount, js_getConsoleProfiles, getConsoleProfiles,-        Internals, castToInternals, gTypeInternals)+        getSettings, getSettingsUnsafe, getSettingsUnchecked,+        js_getWorkerThreadCount, getWorkerThreadCount,+        js_getConsoleProfiles, getConsoleProfiles, Internals(..),+        gTypeInternals)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -243,6 +259,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"address\"]($2)" js_address         :: Internals -> Nullable Node -> IO JSString@@ -468,6 +494,17 @@             (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +computedStyleIncludingVisitedInfoUnsafe ::+                                        (MonadIO m, IsNode node, HasCallStack) =>+                                          Internals -> Maybe node -> m CSSStyleDeclaration+computedStyleIncludingVisitedInfoUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_computedStyleIncludingVisitedInfo (self)+             (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation>  computedStyleIncludingVisitedInfoUnchecked ::                                            (MonadIO m, IsNode node) =>                                              Internals -> Maybe node -> m CSSStyleDeclaration@@ -501,6 +538,17 @@             (maybeToNullable (fmap toElement host))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +ensureShadowRootUnsafe ::+                       (MonadIO m, IsElement host, HasCallStack) =>+                         Internals -> Maybe host -> m Node+ensureShadowRootUnsafe self host+  = liftIO+      ((nullableToMaybe <$>+          (js_ensureShadowRoot (self)+             (maybeToNullable (fmap toElement host))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation>  ensureShadowRootUnchecked ::                           (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node ensureShadowRootUnchecked self host@@ -533,6 +581,17 @@             (maybeToNullable (fmap toElement host))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +createShadowRootUnsafe ::+                       (MonadIO m, IsElement host, HasCallStack) =>+                         Internals -> Maybe host -> m Node+createShadowRootUnsafe self host+  = liftIO+      ((nullableToMaybe <$>+          (js_createShadowRoot (self)+             (maybeToNullable (fmap toElement host))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation>  createShadowRootUnchecked ::                           (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node createShadowRootUnchecked self host@@ -563,6 +622,16 @@          (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +shadowRootUnsafe ::+                 (MonadIO m, IsElement host, HasCallStack) =>+                   Internals -> Maybe host -> m Node+shadowRootUnsafe self host+  = liftIO+      ((nullableToMaybe <$>+          (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation>  shadowRootUnchecked ::                     (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node shadowRootUnchecked self host@@ -611,6 +680,16 @@       (void (js_includerFor (self) (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +includerForUnsafe ::+                  (MonadIO m, IsNode node, HasCallStack) =>+                    Internals -> Maybe node -> m Element+includerForUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_includerFor (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation>  includerForUnchecked ::                      (MonadIO m, IsNode node) => Internals -> Maybe node -> m Element includerForUnchecked self node@@ -677,6 +756,16 @@          (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +treeScopeRootNodeUnsafe ::+                        (MonadIO m, IsNode node, HasCallStack) =>+                          Internals -> Maybe node -> m Node+treeScopeRootNodeUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation>  treeScopeRootNodeUnchecked ::                            (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node treeScopeRootNodeUnchecked self node@@ -706,6 +795,16 @@          (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +parentTreeScopeUnsafe ::+                      (MonadIO m, IsNode node, HasCallStack) =>+                        Internals -> Maybe node -> m Node+parentTreeScopeUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation>  parentTreeScopeUnchecked ::                          (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node parentTreeScopeUnchecked self node@@ -1002,6 +1101,14 @@   = liftIO (void (js_absoluteCaretBounds (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +absoluteCaretBoundsUnsafe ::+                          (MonadIO m, HasCallStack) => Internals -> m ClientRect+absoluteCaretBoundsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_absoluteCaretBounds (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation>  absoluteCaretBoundsUnchecked ::                              (MonadIO m) => Internals -> m ClientRect absoluteCaretBoundsUnchecked self@@ -1031,6 +1138,16 @@          (js_boundingBox (self) (maybeToNullable (fmap toElement element))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +boundingBoxUnsafe ::+                  (MonadIO m, IsElement element, HasCallStack) =>+                    Internals -> Maybe element -> m ClientRect+boundingBoxUnsafe self element+  = liftIO+      ((nullableToMaybe <$>+          (js_boundingBox (self) (maybeToNullable (fmap toElement element))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation>  boundingBoxUnchecked ::                      (MonadIO m, IsElement element) =>                        Internals -> Maybe element -> m ClientRect@@ -1055,6 +1172,14 @@   = liftIO (void (js_inspectorHighlightRects (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +inspectorHighlightRectsUnsafe ::+                              (MonadIO m, HasCallStack) => Internals -> m ClientRectList+inspectorHighlightRectsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_inspectorHighlightRects (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation>  inspectorHighlightRectsUnchecked ::                                  (MonadIO m) => Internals -> m ClientRectList inspectorHighlightRectsUnchecked self@@ -1128,6 +1253,18 @@             index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +markerRangeForNodeUnsafe ::+                         (MonadIO m, IsNode node, ToJSString markerType, HasCallStack) =>+                           Internals -> Maybe node -> markerType -> Word -> m Range+markerRangeForNodeUnsafe self node markerType index+  = liftIO+      ((nullableToMaybe <$>+          (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node))+             (toJSString markerType)+             index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation>  markerRangeForNodeUnchecked ::                             (MonadIO m, IsNode node, ToJSString markerType) =>                               Internals -> Maybe node -> markerType -> Word -> m Range@@ -1401,6 +1538,20 @@             rangeLength))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +rangeFromLocationAndLengthUnsafe ::+                                 (MonadIO m, IsElement scope, HasCallStack) =>+                                   Internals -> Maybe scope -> Int -> Int -> m Range+rangeFromLocationAndLengthUnsafe self scope rangeLocation+  rangeLength+  = liftIO+      ((nullableToMaybe <$>+          (js_rangeFromLocationAndLength (self)+             (maybeToNullable (fmap toElement scope))+             rangeLocation+             rangeLength))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation>  rangeFromLocationAndLengthUnchecked ::                                     (MonadIO m, IsElement scope) =>                                       Internals -> Maybe scope -> Int -> Int -> m Range@@ -1501,6 +1652,17 @@             rangeLength))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +subrangeUnsafe ::+               (MonadIO m, HasCallStack) =>+                 Internals -> Maybe Range -> Int -> Int -> m Range+subrangeUnsafe self range rangeLocation rangeLength+  = liftIO+      ((nullableToMaybe <$>+          (js_subrange (self) (maybeToNullable range) rangeLocation+             rangeLength))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation>  subrangeUnchecked ::                   (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m Range subrangeUnchecked self range rangeLocation rangeLength@@ -1529,6 +1691,16 @@   = liftIO (void (js_rangeForDictionaryLookupAtLocation (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +rangeForDictionaryLookupAtLocationUnsafe ::+                                         (MonadIO m, HasCallStack) =>+                                           Internals -> Int -> Int -> m Range+rangeForDictionaryLookupAtLocationUnsafe self x y+  = liftIO+      ((nullableToMaybe <$>+          (js_rangeForDictionaryLookupAtLocation (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation>  rangeForDictionaryLookupAtLocationUnchecked ::                                             (MonadIO m) => Internals -> Int -> Int -> m Range rangeForDictionaryLookupAtLocationUnchecked self x y@@ -1691,6 +1863,32 @@             allowChildFrameContent))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +nodesFromRectUnsafe ::+                    (MonadIO m, IsDocument document, HasCallStack) =>+                      Internals ->+                        Maybe document ->+                          Int ->+                            Int ->+                              Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList+nodesFromRectUnsafe self document x y topPadding rightPadding+  bottomPadding leftPadding ignoreClipping allowShadowContent+  allowChildFrameContent+  = liftIO+      ((nullableToMaybe <$>+          (js_nodesFromRect (self)+             (maybeToNullable (fmap toDocument document))+             x+             y+             topPadding+             rightPadding+             bottomPadding+             leftPadding+             ignoreClipping+             allowShadowContent+             allowChildFrameContent))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation>  nodesFromRectUnchecked ::                        (MonadIO m, IsDocument document) =>                          Internals ->@@ -1971,6 +2169,14 @@   = liftIO (void (js_nonFastScrollableRects (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +nonFastScrollableRectsUnsafe ::+                             (MonadIO m, HasCallStack) => Internals -> m ClientRectList+nonFastScrollableRectsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_nonFastScrollableRects (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation>  nonFastScrollableRectsUnchecked ::                                 (MonadIO m) => Internals -> m ClientRectList nonFastScrollableRectsUnchecked self@@ -2118,6 +2324,16 @@       (void (js_openDummyInspectorFrontend (self) (toJSString url)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +openDummyInspectorFrontendUnsafe ::+                                 (MonadIO m, ToJSString url, HasCallStack) =>+                                   Internals -> url -> m Window+openDummyInspectorFrontendUnsafe self url+  = liftIO+      ((nullableToMaybe <$>+          (js_openDummyInspectorFrontend (self) (toJSString url)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation>  openDummyInspectorFrontendUnchecked ::                                     (MonadIO m, ToJSString url) => Internals -> url -> m Window openDummyInspectorFrontendUnchecked self url@@ -2454,6 +2670,14 @@ mallocStatistics_ self = liftIO (void (js_mallocStatistics (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +mallocStatisticsUnsafe ::+                       (MonadIO m, HasCallStack) => Internals -> m MallocStatistics+mallocStatisticsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_mallocStatistics (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation>  mallocStatisticsUnchecked ::                           (MonadIO m) => Internals -> m MallocStatistics mallocStatisticsUnchecked self@@ -2474,6 +2698,14 @@ typeConversions_ self = liftIO (void (js_typeConversions (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +typeConversionsUnsafe ::+                      (MonadIO m, HasCallStack) => Internals -> m TypeConversions+typeConversionsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_typeConversions (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation>  typeConversionsUnchecked ::                          (MonadIO m) => Internals -> m TypeConversions typeConversionsUnchecked self@@ -2493,6 +2725,14 @@ memoryInfo_ self = liftIO (void (js_memoryInfo (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +memoryInfoUnsafe ::+                 (MonadIO m, HasCallStack) => Internals -> m MemoryInfo+memoryInfoUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_memoryInfo (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation>  memoryInfoUnchecked :: (MonadIO m) => Internals -> m MemoryInfo memoryInfoUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_memoryInfo (self)))@@ -2644,6 +2884,17 @@             (maybeToNullable (fmap toArrayBuffer buffer))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +deserializeBufferUnsafe ::+                        (MonadIO m, IsArrayBuffer buffer, HasCallStack) =>+                          Internals -> Maybe buffer -> m SerializedScriptValue+deserializeBufferUnsafe self buffer+  = liftIO+      ((nullableToMaybe <$>+          (js_deserializeBuffer (self)+             (maybeToNullable (fmap toArrayBuffer buffer))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation>  deserializeBufferUnchecked ::                            (MonadIO m, IsArrayBuffer buffer) =>                              Internals -> Maybe buffer -> m SerializedScriptValue@@ -2679,6 +2930,17 @@             (maybeToNullable (fmap toSerializedScriptValue obj))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +serializeObjectUnsafe ::+                      (MonadIO m, IsSerializedScriptValue obj, HasCallStack) =>+                        Internals -> Maybe obj -> m ArrayBuffer+serializeObjectUnsafe self obj+  = liftIO+      ((nullableToMaybe <$>+          (js_serializeObject (self)+             (maybeToNullable (fmap toSerializedScriptValue obj))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation>  serializeObjectUnchecked ::                          (MonadIO m, IsSerializedScriptValue obj) =>                            Internals -> Maybe obj -> m ArrayBuffer@@ -2863,6 +3125,19 @@             (maybeToNullable (fmap toFloat32Array endTimes))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +createTimeRangesUnsafe ::+                       (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes,+                        HasCallStack) =>+                         Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges+createTimeRangesUnsafe self startTimes endTimes+  = liftIO+      ((nullableToMaybe <$>+          (js_createTimeRanges (self)+             (maybeToNullable (fmap toFloat32Array startTimes))+             (maybeToNullable (fmap toFloat32Array endTimes))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation>  createTimeRangesUnchecked ::                           (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) =>                             Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges@@ -2985,6 +3260,14 @@ selectionBounds_ self = liftIO (void (js_selectionBounds (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBoundsUnsafe ::+                      (MonadIO m, HasCallStack) => Internals -> m ClientRect+selectionBoundsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_selectionBounds (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation>  selectionBoundsUnchecked ::                          (MonadIO m) => Internals -> m ClientRect selectionBoundsUnchecked self@@ -3182,6 +3465,14 @@             (MonadIO m) => Internals -> m (Maybe InternalSettings) getSettings self   = liftIO (nullableToMaybe <$> (js_getSettings (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> +getSettingsUnsafe ::+                  (MonadIO m, HasCallStack) => Internals -> m InternalSettings+getSettingsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSettings (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation>  getSettingsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.KeyboardEvent        (js_initKeyboardEvent, initKeyboardEvent,         pattern DOM_KEY_LOCATION_STANDARD, pattern DOM_KEY_LOCATION_LEFT,@@ -7,9 +12,10 @@         js_getKeyLocation, getKeyLocation, js_getCtrlKey, getCtrlKey,         js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,         js_getMetaKey, getMetaKey, js_getAltGraphKey, getAltGraphKey,-        KeyboardEvent, castToKeyboardEvent, gTypeKeyboardEvent)+        KeyboardEvent(..), gTypeKeyboardEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"
src/GHCJS/DOM/JSFFI/Generated/Location.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Location        (js_assign, assign, js_replace, replace, js_reload, reload,         js_toString, toString, toString_, js_setHref, setHref, js_getHref,@@ -9,10 +14,11 @@         getPathname, js_setSearch, setSearch, js_getSearch, getSearch,         js_setHash, setHash, js_getHash, getHash, js_getOrigin, getOrigin,         js_getAncestorOrigins, getAncestorOrigins,-        getAncestorOriginsUnchecked, Location, castToLocation,-        gTypeLocation)+        getAncestorOriginsUnsafe, getAncestorOriginsUnchecked,+        Location(..), gTypeLocation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"assign\"]($2)" js_assign ::         Location -> JSString -> IO ()@@ -203,6 +219,14 @@                    (MonadIO m) => Location -> m (Maybe DOMStringList) getAncestorOrigins self   = liftIO (nullableToMaybe <$> (js_getAncestorOrigins (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> +getAncestorOriginsUnsafe ::+                         (MonadIO m, HasCallStack) => Location -> m DOMStringList+getAncestorOriginsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAncestorOrigins (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation>  getAncestorOriginsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MallocStatistics        (js_getReservedVMBytes, getReservedVMBytes, js_getCommittedVMBytes,         getCommittedVMBytes, js_getFreeListBytes, getFreeListBytes,-        MallocStatistics, castToMallocStatistics, gTypeMallocStatistics)+        MallocStatistics(..), gTypeMallocStatistics)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"reservedVMBytes\"]"         js_getReservedVMBytes :: MallocStatistics -> IO Word
src/GHCJS/DOM/JSFFI/Generated/MediaController.hs view
@@ -1,20 +1,26 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaController        (js_newMediaController, newMediaController, js_play, play,         js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered,-        getBufferedUnchecked, js_getSeekable, getSeekable,-        getSeekableUnchecked, js_getDuration, getDuration,-        js_setCurrentTime, setCurrentTime, js_getCurrentTime,-        getCurrentTime, js_getPaused, getPaused, js_getPlayed, getPlayed,-        getPlayedUnchecked, js_getPlaybackState, getPlaybackState,-        js_setDefaultPlaybackRate, setDefaultPlaybackRate,-        js_getDefaultPlaybackRate, getDefaultPlaybackRate,-        js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate,-        getPlaybackRate, js_setVolume, setVolume, js_getVolume, getVolume,-        js_setMuted, setMuted, js_getMuted, getMuted, MediaController,-        castToMediaController, gTypeMediaController)+        getBufferedUnsafe, getBufferedUnchecked, js_getSeekable,+        getSeekable, getSeekableUnsafe, getSeekableUnchecked,+        js_getDuration, getDuration, js_setCurrentTime, setCurrentTime,+        js_getCurrentTime, getCurrentTime, js_getPaused, getPaused,+        js_getPlayed, getPlayed, getPlayedUnsafe, getPlayedUnchecked,+        js_getPlaybackState, getPlaybackState, js_setDefaultPlaybackRate,+        setDefaultPlaybackRate, js_getDefaultPlaybackRate,+        getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate,+        js_getPlaybackRate, getPlaybackRate, js_setVolume, setVolume,+        js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted,+        getMuted, MediaController(..), gTypeMediaController)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +36,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"MediaController\"]()" js_newMediaController ::@@ -70,6 +86,14 @@   = liftIO (nullableToMaybe <$> (js_getBuffered (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> +getBufferedUnsafe ::+                  (MonadIO m, HasCallStack) => MediaController -> m TimeRanges+getBufferedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBuffered (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation>  getBufferedUnchecked ::                      (MonadIO m) => MediaController -> m TimeRanges getBufferedUnchecked self@@ -85,6 +109,14 @@   = liftIO (nullableToMaybe <$> (js_getSeekable (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> +getSeekableUnsafe ::+                  (MonadIO m, HasCallStack) => MediaController -> m TimeRanges+getSeekableUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSeekable (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation>  getSeekableUnchecked ::                      (MonadIO m) => MediaController -> m TimeRanges getSeekableUnchecked self@@ -124,6 +156,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation>  getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> +getPlayedUnsafe ::+                (MonadIO m, HasCallStack) => MediaController -> m TimeRanges+getPlayedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPlayed (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation>  getPlayedUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaControlsHost        (js_sortedTrackListForMenu, sortedTrackListForMenu,         sortedTrackListForMenu_, js_sortedTrackListForMenuAudio,@@ -11,10 +16,12 @@         js_exitedFullscreen, exitedFullscreen, js_enterFullscreenOptimized,         enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData,         mediaUIImageData_, js_getCaptionMenuOffItem, getCaptionMenuOffItem,-        getCaptionMenuOffItemUnchecked, js_getCaptionMenuAutomaticItem,-        getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItemUnchecked,-        js_getCaptionDisplayMode, getCaptionDisplayMode,-        js_getTextTrackContainer, getTextTrackContainer,+        getCaptionMenuOffItemUnsafe, getCaptionMenuOffItemUnchecked,+        js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem,+        getCaptionMenuAutomaticItemUnsafe,+        getCaptionMenuAutomaticItemUnchecked, js_getCaptionDisplayMode,+        getCaptionDisplayMode, js_getTextTrackContainer,+        getTextTrackContainer, getTextTrackContainerUnsafe,         getTextTrackContainerUnchecked, js_getMediaPlaybackAllowsInline,         getMediaPlaybackAllowsInline, js_getSupportsFullscreen,         getSupportsFullscreen, js_getUserGestureRequired,@@ -23,10 +30,11 @@         getExternalDeviceType, js_setControlsDependOnPageScaleFactor,         setControlsDependOnPageScaleFactor,         js_getControlsDependOnPageScaleFactor,-        getControlsDependOnPageScaleFactor, MediaControlsHost,-        castToMediaControlsHost, gTypeMediaControlsHost)+        getControlsDependOnPageScaleFactor, MediaControlsHost(..),+        gTypeMediaControlsHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -42,6 +50,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu ::@@ -199,6 +217,14 @@   = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> +getCaptionMenuOffItemUnsafe ::+                            (MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack+getCaptionMenuOffItemUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCaptionMenuOffItem (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation>  getCaptionMenuOffItemUnchecked ::                                (MonadIO m) => MediaControlsHost -> m TextTrack getCaptionMenuOffItemUnchecked self@@ -217,6 +243,14 @@       (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> +getCaptionMenuAutomaticItemUnsafe ::+                                  (MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack+getCaptionMenuAutomaticItemUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation>  getCaptionMenuAutomaticItemUnchecked ::                                      (MonadIO m) => MediaControlsHost -> m TextTrack getCaptionMenuAutomaticItemUnchecked self@@ -242,6 +276,14 @@                       (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self   = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> +getTextTrackContainerUnsafe ::+                            (MonadIO m, HasCallStack) => MediaControlsHost -> m HTMLElement+getTextTrackContainerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTextTrackContainer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation>  getTextTrackContainerUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode-       (js_getMediaElement, getMediaElement, getMediaElementUnchecked,-        MediaElementAudioSourceNode, castToMediaElementAudioSourceNode,+       (js_getMediaElement, getMediaElement, getMediaElementUnsafe,+        getMediaElementUnchecked, MediaElementAudioSourceNode(..),         gTypeMediaElementAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"mediaElement\"]"         js_getMediaElement ::@@ -31,6 +47,15 @@                   MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement) getMediaElement self   = liftIO (nullableToMaybe <$> (js_getMediaElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> +getMediaElementUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        MediaElementAudioSourceNode -> m HTMLMediaElement+getMediaElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMediaElement (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation>  getMediaElementUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaError.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaError        (pattern MEDIA_ERR_ABORTED, pattern MEDIA_ERR_NETWORK,         pattern MEDIA_ERR_DECODE, pattern MEDIA_ERR_SRC_NOT_SUPPORTED,-        pattern MEDIA_ERR_ENCRYPTED, js_getCode, getCode, MediaError,-        castToMediaError, gTypeMediaError)+        pattern MEDIA_ERR_ENCRYPTED, js_getCode, getCode, MediaError(..),+        gTypeMediaError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern MEDIA_ERR_ABORTED = 1 pattern MEDIA_ERR_NETWORK = 2 pattern MEDIA_ERR_DECODE = 3
src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyError        (pattern MEDIA_KEYERR_UNKNOWN, pattern MEDIA_KEYERR_CLIENT,         pattern MEDIA_KEYERR_SERVICE, pattern MEDIA_KEYERR_OUTPUT,         pattern MEDIA_KEYERR_HARDWARECHANGE, pattern MEDIA_KEYERR_DOMAIN,         js_getCode, getCode, js_getSystemCode, getSystemCode,-        MediaKeyError, castToMediaKeyError, gTypeMediaKeyError)+        MediaKeyError(..), gTypeMediaKeyError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern MEDIA_KEYERR_UNKNOWN = 1 pattern MEDIA_KEYERR_CLIENT = 2 pattern MEDIA_KEYERR_SERVICE = 3
src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent        (js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,-        js_getInitData, getInitData, getInitDataUnchecked, js_getMessage,-        getMessage, getMessageUnchecked, js_getDefaultURL, getDefaultURL,-        js_getErrorCode, getErrorCode, getErrorCodeUnchecked,-        js_getSystemCode, getSystemCode, MediaKeyEvent,-        castToMediaKeyEvent, gTypeMediaKeyEvent)+        js_getInitData, getInitData, getInitDataUnsafe,+        getInitDataUnchecked, js_getMessage, getMessage, getMessageUnsafe,+        getMessageUnchecked, js_getDefaultURL, getDefaultURL,+        js_getErrorCode, getErrorCode, getErrorCodeUnsafe,+        getErrorCodeUnchecked, js_getSystemCode, getSystemCode,+        MediaKeyEvent(..), gTypeMediaKeyEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"keySystem\"]"         js_getKeySystem :: MediaKeyEvent -> IO JSString@@ -51,6 +68,14 @@   = liftIO (nullableToMaybe <$> (js_getInitData (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> +getInitDataUnsafe ::+                  (MonadIO m, HasCallStack) => MediaKeyEvent -> m Uint8Array+getInitDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getInitData (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation>  getInitDataUnchecked ::                      (MonadIO m) => MediaKeyEvent -> m Uint8Array getInitDataUnchecked self@@ -65,6 +90,14 @@   = liftIO (nullableToMaybe <$> (js_getMessage (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> +getMessageUnsafe ::+                 (MonadIO m, HasCallStack) => MediaKeyEvent -> m Uint8Array+getMessageUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMessage (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation>  getMessageUnchecked :: (MonadIO m) => MediaKeyEvent -> m Uint8Array getMessageUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getMessage (self)))@@ -86,6 +119,14 @@              (MonadIO m) => MediaKeyEvent -> m (Maybe MediaKeyError) getErrorCode self   = liftIO (nullableToMaybe <$> (js_getErrorCode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> +getErrorCodeUnsafe ::+                   (MonadIO m, HasCallStack) => MediaKeyEvent -> m MediaKeyError+getErrorCodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getErrorCode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation>  getErrorCodeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent-       (js_getMessage, getMessage, getMessageUnchecked,-        js_getDestinationURL, getDestinationURL, MediaKeyMessageEvent,-        castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent)+       (js_getMessage, getMessage, getMessageUnsafe, getMessageUnchecked,+        js_getDestinationURL, getDestinationURL, MediaKeyMessageEvent(..),+        gTypeMediaKeyMessageEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::         MediaKeyMessageEvent -> IO (Nullable Uint8Array)@@ -29,6 +45,14 @@            (MonadIO m) => MediaKeyMessageEvent -> m (Maybe Uint8Array) getMessage self   = liftIO (nullableToMaybe <$> (js_getMessage (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> +getMessageUnsafe ::+                 (MonadIO m, HasCallStack) => MediaKeyMessageEvent -> m Uint8Array+getMessageUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMessage (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation>  getMessageUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent-       (js_getInitData, getInitData, getInitDataUnchecked,-        MediaKeyNeededEvent, castToMediaKeyNeededEvent,+       (js_getInitData, getInitData, getInitDataUnsafe,+        getInitDataUnchecked, MediaKeyNeededEvent(..),         gTypeMediaKeyNeededEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"initData\"]" js_getInitData         :: MediaKeyNeededEvent -> IO (Nullable Uint8Array)@@ -29,6 +45,14 @@             (MonadIO m) => MediaKeyNeededEvent -> m (Maybe Uint8Array) getInitData self   = liftIO (nullableToMaybe <$> (js_getInitData (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> +getInitDataUnsafe ::+                  (MonadIO m, HasCallStack) => MediaKeyNeededEvent -> m Uint8Array+getInitDataUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getInitData (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation>  getInitDataUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeySession        (js_update, update, js_close, close, js_getError, getError,-        getErrorUnchecked, js_getKeySystem, getKeySystem, js_getSessionId,-        getSessionId, webKitKeyAdded, webKitKeyError, webKitKeyMessage,-        MediaKeySession, castToMediaKeySession, gTypeMediaKeySession)+        getErrorUnsafe, getErrorUnchecked, js_getKeySystem, getKeySystem,+        js_getSessionId, getSessionId, webKitKeyAdded, webKitKeyError,+        webKitKeyMessage, MediaKeySession(..), gTypeMediaKeySession)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::         MediaKeySession -> Nullable Uint8Array -> IO ()@@ -47,6 +63,14 @@ getError ::          (MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> +getErrorUnsafe ::+               (MonadIO m, HasCallStack) => MediaKeySession -> m MediaKeyError+getErrorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getError (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation>  getErrorUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaKeys        (js_newMediaKeys, newMediaKeys, js_createSession, createSession,-        createSession_, createSessionUnchecked, js_isTypeSupported,-        isTypeSupported, isTypeSupported_, js_getKeySystem, getKeySystem,-        MediaKeys, castToMediaKeys, gTypeMediaKeys)+        createSession_, createSessionUnsafe, createSessionUnchecked,+        js_isTypeSupported, isTypeSupported, isTypeSupported_,+        js_getKeySystem, getKeySystem, MediaKeys(..), gTypeMediaKeys)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"WebKitMediaKeys\"]($1)" js_newMediaKeys ::@@ -56,6 +72,18 @@       (void          (js_createSession (self) (toJSString type')             (maybeToNullable (fmap toUint8Array initData))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> +createSessionUnsafe ::+                    (MonadIO m, ToJSString type', IsUint8Array initData,+                     HasCallStack) =>+                      MediaKeys -> type' -> Maybe initData -> m MediaKeySession+createSessionUnsafe self type' initData+  = liftIO+      ((nullableToMaybe <$>+          (js_createSession (self) (toJSString type')+             (maybeToNullable (fmap toUint8Array initData))))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation>  createSessionUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaList.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaList-       (js_item, item, item_, itemUnchecked, js_deleteMedium,+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_deleteMedium,         deleteMedium, js_appendMedium, appendMedium, js_setMediaText,-        setMediaText, js_getMediaText, getMediaText, getMediaTextUnchecked,-        js_getLength, getLength, MediaList, castToMediaList,+        setMediaText, js_getMediaText, getMediaText, getMediaTextUnsafe,+        getMediaTextUnchecked, js_getLength, getLength, MediaList(..),         gTypeMediaList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         MediaList -> Word -> IO (Nullable JSString)@@ -38,6 +54,15 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack, FromJSString result) =>+             MediaList -> Word -> m result+itemUnsafe self index+  = liftIO+      ((fromMaybeJSString <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation>  itemUnchecked ::               (MonadIO m, FromJSString result) => MediaList -> Word -> m result itemUnchecked self index@@ -78,6 +103,15 @@              (MonadIO m, FromJSString result) => MediaList -> m (Maybe result) getMediaText self   = liftIO (fromMaybeJSString <$> (js_getMediaText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +getMediaTextUnsafe ::+                   (MonadIO m, HasCallStack, FromJSString result) =>+                     MediaList -> m result+getMediaTextUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getMediaText (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation>  getMediaTextUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaQueryList        (js_addListener, addListener, js_removeListener, removeListener,-        js_getMedia, getMedia, js_getMatches, getMatches, MediaQueryList,-        castToMediaQueryList, gTypeMediaQueryList)+        js_getMedia, getMedia, js_getMatches, getMatches,+        MediaQueryList(..), gTypeMediaQueryList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"addListener\"]($2)"         js_addListener ::
src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaQueryListListener        (newMediaQueryListListener, newMediaQueryListListenerSync,         newMediaQueryListListenerAsync, MediaQueryListListener)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation>  newMediaQueryListListener ::
src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs view
@@ -1,16 +1,24 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaSource        (js_newMediaSource, newMediaSource, js_addSourceBuffer,-        addSourceBuffer, addSourceBuffer_, addSourceBufferUnchecked,-        js_removeSourceBuffer, removeSourceBuffer, js_endOfStream,-        endOfStream, js_isTypeSupported, isTypeSupported, isTypeSupported_,-        js_getSourceBuffers, getSourceBuffers, getSourceBuffersUnchecked,-        js_getActiveSourceBuffers, getActiveSourceBuffers,+        addSourceBuffer, addSourceBuffer_, addSourceBufferUnsafe,+        addSourceBufferUnchecked, js_removeSourceBuffer,+        removeSourceBuffer, js_endOfStream, endOfStream,+        js_isTypeSupported, isTypeSupported, isTypeSupported_,+        js_getSourceBuffers, getSourceBuffers, getSourceBuffersUnsafe,+        getSourceBuffersUnchecked, js_getActiveSourceBuffers,+        getActiveSourceBuffers, getActiveSourceBuffersUnsafe,         getActiveSourceBuffersUnchecked, js_setDuration, setDuration,         js_getDuration, getDuration, js_getReadyState, getReadyState,-        MediaSource, castToMediaSource, gTypeMediaSource)+        MediaSource(..), gTypeMediaSource)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"MediaSource\"]()"         js_newMediaSource :: IO MediaSource@@ -54,6 +72,16 @@   = liftIO (void (js_addSourceBuffer (self) (toJSString type')))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> +addSourceBufferUnsafe ::+                      (MonadIO m, ToJSString type', HasCallStack) =>+                        MediaSource -> type' -> m SourceBuffer+addSourceBufferUnsafe self type'+  = liftIO+      ((nullableToMaybe <$>+          (js_addSourceBuffer (self) (toJSString type')))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation>  addSourceBufferUnchecked ::                          (MonadIO m, ToJSString type') =>                            MediaSource -> type' -> m SourceBuffer@@ -108,6 +136,14 @@   = liftIO (nullableToMaybe <$> (js_getSourceBuffers (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> +getSourceBuffersUnsafe ::+                       (MonadIO m, HasCallStack) => MediaSource -> m SourceBufferList+getSourceBuffersUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSourceBuffers (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation>  getSourceBuffersUnchecked ::                           (MonadIO m) => MediaSource -> m SourceBufferList getSourceBuffersUnchecked self@@ -123,6 +159,14 @@                        (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) getActiveSourceBuffers self   = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> +getActiveSourceBuffersUnsafe ::+                             (MonadIO m, HasCallStack) => MediaSource -> m SourceBufferList+getActiveSourceBuffersUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getActiveSourceBuffers (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation>  getActiveSourceBuffersUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaSourceStates        (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, js_getFrameRate, getFrameRate,+        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,+        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,+        js_getFrameRate, getFrameRate, getFrameRateUnsafe,         getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,-        getAspectRatioUnchecked, js_getFacingMode, getFacingMode,-        js_getVolume, getVolume, getVolumeUnchecked, MediaSourceStates,-        castToMediaSourceStates, gTypeMediaSourceStates)+        getAspectRatioUnsafe, getAspectRatioUnchecked, js_getFacingMode,+        getFacingMode, js_getVolume, getVolume, getVolumeUnsafe,+        getVolumeUnchecked, MediaSourceStates(..), gTypeMediaSourceStates)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"sourceType\"]"         js_getSourceType :: MediaSourceStates -> IO JSVal@@ -52,6 +69,14 @@   = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) => MediaSourceStates -> m Word+getWidthUnsafe self+  = liftIO+      (((js_getWidth (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation>  getWidthUnchecked :: (MonadIO m) => MediaSourceStates -> m Word getWidthUnchecked self   = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked)@@ -65,6 +90,14 @@   = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) => MediaSourceStates -> m Word+getHeightUnsafe self+  = liftIO+      (((js_getHeight (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation>  getHeightUnchecked :: (MonadIO m) => MediaSourceStates -> m Word getHeightUnchecked self   = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked)@@ -78,6 +111,14 @@   = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> +getFrameRateUnsafe ::+                   (MonadIO m, HasCallStack) => MediaSourceStates -> m Float+getFrameRateUnsafe self+  = liftIO+      (((js_getFrameRate (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation>  getFrameRateUnchecked ::                       (MonadIO m) => MediaSourceStates -> m Float getFrameRateUnchecked self@@ -93,6 +134,14 @@   = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> +getAspectRatioUnsafe ::+                     (MonadIO m, HasCallStack) => MediaSourceStates -> m Float+getAspectRatioUnsafe self+  = liftIO+      (((js_getAspectRatio (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation>  getAspectRatioUnchecked ::                         (MonadIO m) => MediaSourceStates -> m Float getAspectRatioUnchecked self@@ -114,6 +163,14 @@ getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getVolume self   = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> +getVolumeUnsafe ::+                (MonadIO m, HasCallStack) => MediaSourceStates -> m Word+getVolumeUnsafe self+  = liftIO+      (((js_getVolume (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation>  getVolumeUnchecked :: (MonadIO m) => MediaSourceStates -> m Word
src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStream        (js_newMediaStream, newMediaStream, js_newMediaStream',         newMediaStream', js_newMediaStream'', newMediaStream'',@@ -6,12 +11,13 @@         js_getVideoTracks, getVideoTracks, getVideoTracks_, js_getTracks,         getTracks, getTracks_, js_addTrack, addTrack, js_removeTrack,         removeTrack, js_getTrackById, getTrackById, getTrackById_,-        getTrackByIdUnchecked, js_clone, clone, clone_, cloneUnchecked,-        js_getId, getId, js_getActive, getActive, active, inactive,-        addTrackEvent, removeTrackEvent, MediaStream, castToMediaStream,-        gTypeMediaStream)+        getTrackByIdUnsafe, getTrackByIdUnchecked, js_clone, clone, clone_,+        cloneUnsafe, cloneUnchecked, js_getId, getId, js_getActive,+        getActive, active, inactive, addTrackEvent, removeTrackEvent,+        MediaStream(..), gTypeMediaStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]()" js_newMediaStream ::@@ -140,6 +156,16 @@   = liftIO (void (js_getTrackById (self) (toJSString trackId)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> +getTrackByIdUnsafe ::+                   (MonadIO m, ToJSString trackId, HasCallStack) =>+                     MediaStream -> trackId -> m MediaStreamTrack+getTrackByIdUnsafe self trackId+  = liftIO+      ((nullableToMaybe <$>+          (js_getTrackById (self) (toJSString trackId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation>  getTrackByIdUnchecked ::                       (MonadIO m, ToJSString trackId) =>                         MediaStream -> trackId -> m MediaStreamTrack@@ -158,6 +184,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation>  clone_ :: (MonadIO m) => MediaStream -> m () clone_ self = liftIO (void (js_clone (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> +cloneUnsafe ::+            (MonadIO m, HasCallStack) => MediaStream -> m MediaStream+cloneUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_clone (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation>  cloneUnchecked :: (MonadIO m) => MediaStream -> m MediaStream
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode-       (js_getStream, getStream, getStreamUnchecked,-        MediaStreamAudioDestinationNode,-        castToMediaStreamAudioDestinationNode,+       (js_getStream, getStream, getStreamUnsafe, getStreamUnchecked,+        MediaStreamAudioDestinationNode(..),         gTypeMediaStreamAudioDestinationNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::         MediaStreamAudioDestinationNode -> IO (Nullable MediaStream)@@ -30,6 +45,15 @@           (MonadIO m) =>             MediaStreamAudioDestinationNode -> m (Maybe MediaStream) getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> +getStreamUnsafe ::+                (MonadIO m, HasCallStack) =>+                  MediaStreamAudioDestinationNode -> m MediaStream+getStreamUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStream (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation>  getStreamUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode-       (js_getMediaStream, getMediaStream, getMediaStreamUnchecked,-        MediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode,+       (js_getMediaStream, getMediaStream, getMediaStreamUnsafe,+        getMediaStreamUnchecked, MediaStreamAudioSourceNode(..),         gTypeMediaStreamAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"mediaStream\"]"         js_getMediaStream ::@@ -30,6 +46,15 @@                (MonadIO m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream) getMediaStream self   = liftIO (nullableToMaybe <$> (js_getMediaStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> +getMediaStreamUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       MediaStreamAudioSourceNode -> m MediaStream+getMediaStreamUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMediaStream (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation>  getMediaStreamUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent-       (js_getStream, getStream, getStreamUnchecked, MediaStreamEvent,-        castToMediaStreamEvent, gTypeMediaStreamEvent)+       (js_getStream, getStream, getStreamUnsafe, getStreamUnchecked,+        MediaStreamEvent(..), gTypeMediaStreamEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::         MediaStreamEvent -> IO (Nullable MediaStream)@@ -27,6 +43,14 @@ getStream ::           (MonadIO m) => MediaStreamEvent -> m (Maybe MediaStream) getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation> +getStreamUnsafe ::+                (MonadIO m, HasCallStack) => MediaStreamEvent -> m MediaStream+getStreamUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStream (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation>  getStreamUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs view
@@ -1,18 +1,26 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrack        (js_getSources, getSources, js_getConstraints, getConstraints,-        getConstraints_, getConstraintsUnchecked, js_states, states,-        states_, statesUnchecked, js_getCapabilities, getCapabilities,-        getCapabilities_, getCapabilitiesUnchecked, js_applyConstraints,-        applyConstraints, js_clone, clone, clone_, cloneUnchecked, js_stop,-        stop, js_getKind, getKind, js_getId, getId, js_getLabel, getLabel,-        js_setEnabled, setEnabled, js_getEnabled, getEnabled, js_getMuted,-        getMuted, mute, unmute, js_get_readonly, get_readonly,-        js_getRemote, getRemote, js_getReadyState, getReadyState, started,-        ended, overConstrained, MediaStreamTrack, castToMediaStreamTrack,-        gTypeMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack)+        getConstraints_, getConstraintsUnsafe, getConstraintsUnchecked,+        js_states, states, states_, statesUnsafe, statesUnchecked,+        js_getCapabilities, getCapabilities, getCapabilities_,+        getCapabilitiesUnsafe, getCapabilitiesUnchecked,+        js_applyConstraints, applyConstraints, js_clone, clone, clone_,+        cloneUnsafe, cloneUnchecked, js_stop, stop, js_getKind, getKind,+        js_getId, getId, js_getLabel, getLabel, js_setEnabled, setEnabled,+        js_getEnabled, getEnabled, js_getMuted, getMuted, mute, unmute,+        js_get_readonly, get_readonly, js_getRemote, getRemote,+        js_getReadyState, getReadyState, started, ended, overConstrained,+        MediaStreamTrack(..), gTypeMediaStreamTrack, IsMediaStreamTrack,+        toMediaStreamTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +36,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getSources\"]($2)"         js_getSources ::@@ -62,6 +80,16 @@   = liftIO (void (js_getConstraints (toMediaStreamTrack self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> +getConstraintsUnsafe ::+                     (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>+                       self -> m MediaTrackConstraints+getConstraintsUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getConstraints (toMediaStreamTrack self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation>  getConstraintsUnchecked ::                         (MonadIO m, IsMediaStreamTrack self) =>                           self -> m MediaTrackConstraints@@ -86,6 +114,15 @@ states_ self = liftIO (void (js_states (toMediaStreamTrack self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> +statesUnsafe ::+             (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>+               self -> m MediaSourceStates+statesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_states (toMediaStreamTrack self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation>  statesUnchecked ::                 (MonadIO m, IsMediaStreamTrack self) => self -> m MediaSourceStates statesUnchecked self@@ -113,6 +150,16 @@   = liftIO (void (js_getCapabilities (toMediaStreamTrack self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> +getCapabilitiesUnsafe ::+                      (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>+                        self -> m MediaStreamCapabilities+getCapabilitiesUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getCapabilities (toMediaStreamTrack self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation>  getCapabilitiesUnchecked ::                          (MonadIO m, IsMediaStreamTrack self) =>                            self -> m MediaStreamCapabilities@@ -147,6 +194,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation>  clone_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m () clone_ self = liftIO (void (js_clone (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +cloneUnsafe ::+            (MonadIO m, IsMediaStreamTrack self, HasCallStack) =>+              self -> m MediaStreamTrack+cloneUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_clone (toMediaStreamTrack self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation>  cloneUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent-       (js_getTrack, getTrack, getTrackUnchecked, MediaStreamTrackEvent,-        castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent)+       (js_getTrack, getTrack, getTrackUnsafe, getTrackUnchecked,+        MediaStreamTrackEvent(..), gTypeMediaStreamTrackEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::         MediaStreamTrackEvent -> IO (Nullable MediaStreamTrack)@@ -27,6 +43,15 @@ getTrack ::          (MonadIO m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> +getTrackUnsafe ::+               (MonadIO m, HasCallStack) =>+                 MediaStreamTrackEvent -> m MediaStreamTrack+getTrackUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTrack (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation>  getTrackUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackSourcesCallback        (newMediaStreamTrackSourcesCallback,         newMediaStreamTrackSourcesCallbackSync,@@ -6,6 +11,7 @@         MediaStreamTrackSourcesCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation>  newMediaStreamTrackSourcesCallback ::
src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints-       (js_getMandatory, getMandatory, getMandatoryUnchecked,-        js_getOptional, getOptional, MediaTrackConstraints,-        castToMediaTrackConstraints, gTypeMediaTrackConstraints)+       (js_getMandatory, getMandatory, getMandatoryUnsafe,+        getMandatoryUnchecked, js_getOptional, getOptional,+        MediaTrackConstraints(..), gTypeMediaTrackConstraints)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"mandatory\"]"         js_getMandatory :: MediaTrackConstraints -> IO JSVal@@ -30,6 +46,15 @@                MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet) getMandatory self   = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> +getMandatoryUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     MediaTrackConstraints -> m MediaTrackConstraintSet+getMandatoryUnsafe self+  = liftIO+      (((js_getMandatory (self)) >>= fromJSValUnchecked) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation>  getMandatoryUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MemoryInfo        (js_getUsedJSHeapSize, getUsedJSHeapSize, js_getTotalJSHeapSize,-        getTotalJSHeapSize, MemoryInfo, castToMemoryInfo, gTypeMemoryInfo)+        getTotalJSHeapSize, MemoryInfo(..), gTypeMemoryInfo)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"usedJSHeapSize\"]"         js_getUsedJSHeapSize :: MemoryInfo -> IO Word
src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MessageChannel        (js_newMessageChannel, newMessageChannel, js_getPort1, getPort1,-        getPort1Unchecked, js_getPort2, getPort2, getPort2Unchecked,-        MessageChannel, castToMessageChannel, gTypeMessageChannel)+        getPort1Unsafe, getPort1Unchecked, js_getPort2, getPort2,+        getPort2Unsafe, getPort2Unchecked, MessageChannel(..),+        gTypeMessageChannel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"MessageChannel\"]()"         js_newMessageChannel :: IO MessageChannel@@ -36,6 +53,14 @@ getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> +getPort1Unsafe ::+               (MonadIO m, HasCallStack) => MessageChannel -> m MessagePort+getPort1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPort1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation>  getPort1Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort getPort1Unchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getPort1 (self)))@@ -46,6 +71,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation>  getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> +getPort2Unsafe ::+               (MonadIO m, HasCallStack) => MessageChannel -> m MessagePort+getPort2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPort2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation>  getPort2Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort
src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MessageEvent        (js_initMessageEvent, initMessageEvent, js_webkitInitMessageEvent,         webkitInitMessageEvent, js_getOrigin, getOrigin, js_getLastEventId,-        getLastEventId, js_getSource, getSource, getSourceUnchecked,-        js_getData, getData, js_getPorts, getPorts, MessageEvent,-        castToMessageEvent, gTypeMessageEvent)+        getLastEventId, js_getSource, getSource, getSourceUnsafe,+        getSourceUnchecked, js_getData, getData, js_getPorts, getPorts,+        MessageEvent(..), gTypeMessageEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initMessageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"@@ -110,6 +126,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget) getSource self = liftIO (nullableToMaybe <$> (js_getSource (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation> +getSourceUnsafe ::+                (MonadIO m, HasCallStack) => MessageEvent -> m EventTarget+getSourceUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSource (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSourceUnchecked :: (MonadIO m) => MessageEvent -> m EventTarget
src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MessagePort        (js_postMessage, postMessage, js_start, start, js_close, close,-        message, MessagePort, castToMessagePort, gTypeMessagePort)+        message, MessagePort(..), gTypeMessagePort)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"         js_postMessage :: MessagePort -> JSVal -> Nullable Array -> IO ()
src/GHCJS/DOM/JSFFI/Generated/MimeType.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MimeType        (js_getType, getType, js_getSuffixes, getSuffixes,         js_getDescription, getDescription, js_getEnabledPlugin,-        getEnabledPlugin, getEnabledPluginUnchecked, MimeType,-        castToMimeType, gTypeMimeType)+        getEnabledPlugin, getEnabledPluginUnsafe,+        getEnabledPluginUnchecked, MimeType(..), gTypeMimeType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         MimeType -> IO JSString@@ -54,6 +70,14 @@ getEnabledPlugin :: (MonadIO m) => MimeType -> m (Maybe Plugin) getEnabledPlugin self   = liftIO (nullableToMaybe <$> (js_getEnabledPlugin (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> +getEnabledPluginUnsafe ::+                       (MonadIO m, HasCallStack) => MimeType -> m Plugin+getEnabledPluginUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEnabledPlugin (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation>  getEnabledPluginUnchecked :: (MonadIO m) => MimeType -> m Plugin
src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MimeTypeArray-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_getLength, getLength,-        MimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_getLength, getLength, MimeTypeArray(..), gTypeMimeTypeArray)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         MimeTypeArray -> Word -> IO (Nullable MimeType)@@ -34,6 +50,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => MimeTypeArray -> Word -> m MimeType+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation>  itemUnchecked :: (MonadIO m) => MimeTypeArray -> Word -> m MimeType itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -54,6 +78,15 @@            (MonadIO m, ToJSString name) => MimeTypeArray -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  MimeTypeArray -> name -> m MimeType+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs view
@@ -1,20 +1,27 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MouseEvent        (js_initMouseEvent, initMouseEvent, js_getScreenX, getScreenX,         js_getScreenY, getScreenY, js_getClientX, getClientX,         js_getClientY, getClientY, js_getCtrlKey, getCtrlKey,         js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,         js_getMetaKey, getMetaKey, js_getButton, getButton,-        js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnchecked,-        js_getMovementX, getMovementX, js_getMovementY, getMovementY,-        js_getOffsetX, getOffsetX, js_getOffsetY, getOffsetY, js_getX,-        getX, js_getY, getY, js_getFromElement, getFromElement,+        js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnsafe,+        getRelatedTargetUnchecked, js_getMovementX, getMovementX,+        js_getMovementY, getMovementY, js_getOffsetX, getOffsetX,+        js_getOffsetY, getOffsetY, js_getX, getX, js_getY, getY,+        js_getFromElement, getFromElement, getFromElementUnsafe,         getFromElementUnchecked, js_getToElement, getToElement,-        getToElementUnchecked, js_getDataTransfer, getDataTransfer,-        getDataTransferUnchecked, MouseEvent, castToMouseEvent,-        gTypeMouseEvent, IsMouseEvent, toMouseEvent)+        getToElementUnsafe, getToElementUnchecked, js_getDataTransfer,+        getDataTransfer, getDataTransferUnsafe, getDataTransferUnchecked,+        MouseEvent(..), gTypeMouseEvent, IsMouseEvent, toMouseEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -29,6 +36,16 @@ import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"@@ -155,6 +172,15 @@       (nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> +getRelatedTargetUnsafe ::+                       (MonadIO m, IsMouseEvent self, HasCallStack) =>+                         self -> m EventTarget+getRelatedTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation>  getRelatedTargetUnchecked ::                           (MonadIO m, IsMouseEvent self) => self -> m EventTarget getRelatedTargetUnchecked self@@ -215,6 +241,14 @@       (nullableToMaybe <$> (js_getFromElement (toMouseEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> +getFromElementUnsafe ::+                     (MonadIO m, IsMouseEvent self, HasCallStack) => self -> m Node+getFromElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFromElement (toMouseEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation>  getFromElementUnchecked ::                         (MonadIO m, IsMouseEvent self) => self -> m Node getFromElementUnchecked self@@ -233,6 +267,14 @@       (nullableToMaybe <$> (js_getToElement (toMouseEvent self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> +getToElementUnsafe ::+                   (MonadIO m, IsMouseEvent self, HasCallStack) => self -> m Node+getToElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getToElement (toMouseEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation>  getToElementUnchecked ::                       (MonadIO m, IsMouseEvent self) => self -> m Node getToElementUnchecked self@@ -249,6 +291,15 @@ getDataTransfer self   = liftIO       (nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> +getDataTransferUnsafe ::+                      (MonadIO m, IsMouseEvent self, HasCallStack) =>+                        self -> m DataTransfer+getDataTransferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation>  getDataTransferUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MutationEvent        (js_initMutationEvent, initMutationEvent, pattern MODIFICATION,         pattern ADDITION, pattern REMOVAL, js_getRelatedNode,-        getRelatedNode, getRelatedNodeUnchecked, js_getPrevValue,-        getPrevValue, js_getNewValue, getNewValue, js_getAttrName,-        getAttrName, js_getAttrChange, getAttrChange, MutationEvent,-        castToMutationEvent, gTypeMutationEvent)+        getRelatedNode, getRelatedNodeUnsafe, getRelatedNodeUnchecked,+        js_getPrevValue, getPrevValue, js_getNewValue, getNewValue,+        js_getAttrName, getAttrName, js_getAttrChange, getAttrChange,+        MutationEvent(..), gTypeMutationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"@@ -64,6 +80,14 @@ getRelatedNode :: (MonadIO m) => MutationEvent -> m (Maybe Node) getRelatedNode self   = liftIO (nullableToMaybe <$> (js_getRelatedNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation> +getRelatedNodeUnsafe ::+                     (MonadIO m, HasCallStack) => MutationEvent -> m Node+getRelatedNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRelatedNode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation>  getRelatedNodeUnchecked :: (MonadIO m) => MutationEvent -> m Node
src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MutationObserver        (js_newMutationObserver, newMutationObserver, js_observe, observe,         js_takeRecords, takeRecords, takeRecords_, js_disconnect,-        disconnect, MutationObserver, castToMutationObserver,-        gTypeMutationObserver)+        disconnect, MutationObserver(..), gTypeMutationObserver)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"MutationObserver\"]($1)" js_newMutationObserver ::
src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs view
@@ -1,17 +1,26 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.MutationRecord-       (js_getType, getType, js_getTarget, getTarget, getTargetUnchecked,-        js_getAddedNodes, getAddedNodes, getAddedNodesUnchecked,-        js_getRemovedNodes, getRemovedNodes, getRemovedNodesUnchecked,+       (js_getType, getType, js_getTarget, getTarget, getTargetUnsafe,+        getTargetUnchecked, js_getAddedNodes, getAddedNodes,+        getAddedNodesUnsafe, getAddedNodesUnchecked, js_getRemovedNodes,+        getRemovedNodes, getRemovedNodesUnsafe, getRemovedNodesUnchecked,         js_getPreviousSibling, getPreviousSibling,-        getPreviousSiblingUnchecked, js_getNextSibling, getNextSibling,+        getPreviousSiblingUnsafe, getPreviousSiblingUnchecked,+        js_getNextSibling, getNextSibling, getNextSiblingUnsafe,         getNextSiblingUnchecked, js_getAttributeName, getAttributeName,-        getAttributeNameUnchecked, js_getAttributeNamespace,-        getAttributeNamespace, getAttributeNamespaceUnchecked,-        js_getOldValue, getOldValue, getOldValueUnchecked, MutationRecord,-        castToMutationRecord, gTypeMutationRecord)+        getAttributeNameUnsafe, getAttributeNameUnchecked,+        js_getAttributeNamespace, getAttributeNamespace,+        getAttributeNamespaceUnsafe, getAttributeNamespaceUnchecked,+        js_getOldValue, getOldValue, getOldValueUnsafe,+        getOldValueUnchecked, MutationRecord(..), gTypeMutationRecord)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +36,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         MutationRecord -> IO JSString@@ -44,6 +63,14 @@ getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> +getTargetUnsafe ::+                (MonadIO m, HasCallStack) => MutationRecord -> m Node+getTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTarget (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation>  getTargetUnchecked :: (MonadIO m) => MutationRecord -> m Node getTargetUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self)))@@ -58,6 +85,14 @@   = liftIO (nullableToMaybe <$> (js_getAddedNodes (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> +getAddedNodesUnsafe ::+                    (MonadIO m, HasCallStack) => MutationRecord -> m NodeList+getAddedNodesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAddedNodes (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation>  getAddedNodesUnchecked ::                        (MonadIO m) => MutationRecord -> m NodeList getAddedNodesUnchecked self@@ -73,6 +108,14 @@   = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> +getRemovedNodesUnsafe ::+                      (MonadIO m, HasCallStack) => MutationRecord -> m NodeList+getRemovedNodesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRemovedNodes (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation>  getRemovedNodesUnchecked ::                          (MonadIO m) => MutationRecord -> m NodeList getRemovedNodesUnchecked self@@ -89,6 +132,14 @@   = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> +getPreviousSiblingUnsafe ::+                         (MonadIO m, HasCallStack) => MutationRecord -> m Node+getPreviousSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreviousSibling (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation>  getPreviousSiblingUnchecked ::                             (MonadIO m) => MutationRecord -> m Node getPreviousSiblingUnchecked self@@ -104,6 +155,14 @@   = liftIO (nullableToMaybe <$> (js_getNextSibling (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> +getNextSiblingUnsafe ::+                     (MonadIO m, HasCallStack) => MutationRecord -> m Node+getNextSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNextSibling (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation>  getNextSiblingUnchecked :: (MonadIO m) => MutationRecord -> m Node getNextSiblingUnchecked self   = liftIO@@ -120,6 +179,15 @@   = liftIO (fromMaybeJSString <$> (js_getAttributeName (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> +getAttributeNameUnsafe ::+                       (MonadIO m, HasCallStack, FromJSString result) =>+                         MutationRecord -> m result+getAttributeNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAttributeName (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation>  getAttributeNameUnchecked ::                           (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNameUnchecked self@@ -138,6 +206,15 @@   = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> +getAttributeNamespaceUnsafe ::+                            (MonadIO m, HasCallStack, FromJSString result) =>+                              MutationRecord -> m result+getAttributeNamespaceUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getAttributeNamespace (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation>  getAttributeNamespaceUnchecked ::                                (MonadIO m, FromJSString result) => MutationRecord -> m result getAttributeNamespaceUnchecked self@@ -154,6 +231,15 @@               MutationRecord -> m (Maybe result) getOldValue self   = liftIO (fromMaybeJSString <$> (js_getOldValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation> +getOldValueUnsafe ::+                  (MonadIO m, HasCallStack, FromJSString result) =>+                    MutationRecord -> m result+getOldValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getOldValue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation>  getOldValueUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs view
@@ -1,17 +1,25 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NamedNodeMap-       (js_getNamedItem, getNamedItem, getNamedItem_,+       (js_getNamedItem, getNamedItem, getNamedItem_, getNamedItemUnsafe,         getNamedItemUnchecked, js_setNamedItem, setNamedItem,-        setNamedItem_, setNamedItemUnchecked, js_removeNamedItem,-        removeNamedItem, removeNamedItem_, removeNamedItemUnchecked,-        js_item, item, item_, itemUnchecked, js_getNamedItemNS,-        getNamedItemNS, getNamedItemNS_, getNamedItemNSUnchecked,-        js_setNamedItemNS, setNamedItemNS, setNamedItemNS_,-        setNamedItemNSUnchecked, js_removeNamedItemNS, removeNamedItemNS,-        removeNamedItemNS_, removeNamedItemNSUnchecked, js_getLength,-        getLength, NamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap)+        setNamedItem_, setNamedItemUnsafe, setNamedItemUnchecked,+        js_removeNamedItem, removeNamedItem, removeNamedItem_,+        removeNamedItemUnsafe, removeNamedItemUnchecked, js_item, item,+        item_, itemUnsafe, itemUnchecked, js_getNamedItemNS,+        getNamedItemNS, getNamedItemNS_, getNamedItemNSUnsafe,+        getNamedItemNSUnchecked, js_setNamedItemNS, setNamedItemNS,+        setNamedItemNS_, setNamedItemNSUnsafe, setNamedItemNSUnchecked,+        js_removeNamedItemNS, removeNamedItemNS, removeNamedItemNS_,+        removeNamedItemNSUnsafe, removeNamedItemNSUnchecked, js_getLength,+        getLength, NamedNodeMap(..), gTypeNamedNodeMap)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +35,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"         js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node)@@ -46,6 +64,15 @@   = liftIO (void (js_getNamedItem (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> +getNamedItemUnsafe ::+                   (MonadIO m, ToJSString name, HasCallStack) =>+                     NamedNodeMap -> name -> m Node+getNamedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation>  getNamedItemUnchecked ::                       (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node getNamedItemUnchecked self name@@ -75,6 +102,16 @@          (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItemUnsafe ::+                   (MonadIO m, IsNode node, HasCallStack) =>+                     NamedNodeMap -> Maybe node -> m Node+setNamedItemUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation>  setNamedItemUnchecked ::                       (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node setNamedItemUnchecked self node@@ -101,6 +138,16 @@   = liftIO (void (js_removeNamedItem (self) (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItemUnsafe ::+                      (MonadIO m, ToJSString name, HasCallStack) =>+                        NamedNodeMap -> name -> m Node+removeNamedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_removeNamedItem (self) (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation>  removeNamedItemUnchecked ::                          (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node removeNamedItemUnchecked self name@@ -121,6 +168,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => NamedNodeMap -> Word -> m Node+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation>  itemUnchecked :: (MonadIO m) => NamedNodeMap -> Word -> m Node itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -150,6 +205,18 @@             (toJSString localName)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> +getNamedItemNSUnsafe ::+                     (MonadIO m, ToJSString namespaceURI, ToJSString localName,+                      HasCallStack) =>+                       NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+getNamedItemNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation>  getNamedItemNSUnchecked ::                         (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>                           NamedNodeMap -> Maybe namespaceURI -> localName -> m Node@@ -181,6 +248,16 @@          (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> +setNamedItemNSUnsafe ::+                     (MonadIO m, IsNode node, HasCallStack) =>+                       NamedNodeMap -> Maybe node -> m Node+setNamedItemNSUnsafe self node+  = liftIO+      ((nullableToMaybe <$>+          (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation>  setNamedItemNSUnchecked ::                         (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node setNamedItemNSUnchecked self node@@ -211,6 +288,18 @@       (void          (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)             (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> +removeNamedItemNSUnsafe ::+                        (MonadIO m, ToJSString namespaceURI, ToJSString localName,+                         HasCallStack) =>+                          NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+removeNamedItemNSUnsafe self namespaceURI localName+  = liftIO+      ((nullableToMaybe <$>+          (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+             (toJSString localName)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation>  removeNamedItemNSUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Navigator.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Navigator        (js_getGamepads, getGamepads, getGamepads_, js_webkitGetUserMedia,         webkitGetUserMedia, js_registerProtocolHandler,@@ -8,23 +13,27 @@         js_vibratePattern, vibratePattern, vibratePattern_, js_vibrate,         vibrate, vibrate_, js_javaEnabled, javaEnabled, javaEnabled_,         js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery,-        getWebkitBattery, getWebkitBatteryUnchecked, js_getGeolocation,-        getGeolocation, getGeolocationUnchecked,+        getWebkitBattery, getWebkitBatteryUnsafe,+        getWebkitBatteryUnchecked, js_getGeolocation, getGeolocation,+        getGeolocationUnsafe, getGeolocationUnchecked,         js_getWebkitTemporaryStorage, getWebkitTemporaryStorage,+        getWebkitTemporaryStorageUnsafe,         getWebkitTemporaryStorageUnchecked, js_getWebkitPersistentStorage,-        getWebkitPersistentStorage, getWebkitPersistentStorageUnchecked,-        js_getAppCodeName, getAppCodeName, js_getAppName, getAppName,-        js_getAppVersion, getAppVersion, js_getLanguage, getLanguage,-        js_getUserAgent, getUserAgent, js_getPlatform, getPlatform,-        js_getPlugins, getPlugins, getPluginsUnchecked, js_getMimeTypes,-        getMimeTypes, getMimeTypesUnchecked, js_getProduct, getProduct,-        js_getProductSub, getProductSub, js_getVendor, getVendor,-        js_getVendorSub, getVendorSub, js_getCookieEnabled,-        getCookieEnabled, js_getOnLine, getOnLine,-        js_getHardwareConcurrency, getHardwareConcurrency, Navigator,-        castToNavigator, gTypeNavigator)+        getWebkitPersistentStorage, getWebkitPersistentStorageUnsafe,+        getWebkitPersistentStorageUnchecked, js_getAppCodeName,+        getAppCodeName, js_getAppName, getAppName, js_getAppVersion,+        getAppVersion, js_getLanguage, getLanguage, js_getUserAgent,+        getUserAgent, js_getPlatform, getPlatform, js_getPlugins,+        getPlugins, getPluginsUnsafe, getPluginsUnchecked, js_getMimeTypes,+        getMimeTypes, getMimeTypesUnsafe, getMimeTypesUnchecked,+        js_getProduct, getProduct, js_getProductSub, getProductSub,+        js_getVendor, getVendor, js_getVendorSub, getVendorSub,+        js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine,+        js_getHardwareConcurrency, getHardwareConcurrency, Navigator(..),+        gTypeNavigator)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -40,6 +49,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getGamepads\"]()"         js_getGamepads :: Navigator -> IO JSVal@@ -186,6 +205,14 @@   = liftIO (nullableToMaybe <$> (js_getWebkitBattery (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> +getWebkitBatteryUnsafe ::+                       (MonadIO m, HasCallStack) => Navigator -> m BatteryManager+getWebkitBatteryUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitBattery (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation>  getWebkitBatteryUnchecked ::                           (MonadIO m) => Navigator -> m BatteryManager getWebkitBatteryUnchecked self@@ -201,6 +228,14 @@   = liftIO (nullableToMaybe <$> (js_getGeolocation (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> +getGeolocationUnsafe ::+                     (MonadIO m, HasCallStack) => Navigator -> m Geolocation+getGeolocationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGeolocation (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation>  getGeolocationUnchecked ::                         (MonadIO m) => Navigator -> m Geolocation getGeolocationUnchecked self@@ -219,6 +254,14 @@       (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> +getWebkitTemporaryStorageUnsafe ::+                                (MonadIO m, HasCallStack) => Navigator -> m StorageQuota+getWebkitTemporaryStorageUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation>  getWebkitTemporaryStorageUnchecked ::                                    (MonadIO m) => Navigator -> m StorageQuota getWebkitTemporaryStorageUnchecked self@@ -238,6 +281,14 @@       (nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> +getWebkitPersistentStorageUnsafe ::+                                 (MonadIO m, HasCallStack) => Navigator -> m StorageQuota+getWebkitPersistentStorageUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation>  getWebkitPersistentStorageUnchecked ::                                     (MonadIO m) => Navigator -> m StorageQuota getWebkitPersistentStorageUnchecked self@@ -307,6 +358,14 @@   = liftIO (nullableToMaybe <$> (js_getPlugins (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> +getPluginsUnsafe ::+                 (MonadIO m, HasCallStack) => Navigator -> m PluginArray+getPluginsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPlugins (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation>  getPluginsUnchecked :: (MonadIO m) => Navigator -> m PluginArray getPluginsUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getPlugins (self)))@@ -318,6 +377,14 @@ getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray) getMimeTypes self   = liftIO (nullableToMaybe <$> (js_getMimeTypes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> +getMimeTypesUnsafe ::+                   (MonadIO m, HasCallStack) => Navigator -> m MimeTypeArray+getMimeTypesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMimeTypes (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation>  getMimeTypesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaError-       (js_getConstraintName, getConstraintName, NavigatorUserMediaError,-        castToNavigatorUserMediaError, gTypeNavigatorUserMediaError)+       (js_getConstraintName, getConstraintName,+        NavigatorUserMediaError(..), gTypeNavigatorUserMediaError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"constraintName\"]"         js_getConstraintName :: NavigatorUserMediaError -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaErrorCallback        (newNavigatorUserMediaErrorCallback,         newNavigatorUserMediaErrorCallbackSync,@@ -6,6 +11,7 @@         NavigatorUserMediaErrorCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallback ::
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NavigatorUserMediaSuccessCallback        (newNavigatorUserMediaSuccessCallback,         newNavigatorUserMediaSuccessCallbackSync,@@ -6,6 +11,7 @@         NavigatorUserMediaSuccessCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallback ::
src/GHCJS/DOM/JSFFI/Generated/Node.hs view
@@ -1,17 +1,24 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Node-       (js_insertBefore, insertBefore, insertBefore_,+       (js_insertBefore, insertBefore, insertBefore_, insertBeforeUnsafe,         insertBeforeUnchecked, js_replaceChild, replaceChild,-        replaceChild_, replaceChildUnchecked, js_removeChild, removeChild,-        removeChild_, removeChildUnchecked, js_appendChild, appendChild,-        appendChild_, appendChildUnchecked, js_hasChildNodes,+        replaceChild_, replaceChildUnsafe, replaceChildUnchecked,+        js_removeChild, removeChild, removeChild_, removeChildUnsafe,+        removeChildUnchecked, js_appendChild, appendChild, appendChild_,+        appendChildUnsafe, appendChildUnchecked, js_hasChildNodes,         hasChildNodes, hasChildNodes_, js_cloneNode, cloneNode, cloneNode_,-        cloneNodeUnchecked, js_normalize, normalize, js_isSupported,-        isSupported, isSupported_, js_isSameNode, isSameNode, isSameNode_,-        js_isEqualNode, isEqualNode, isEqualNode_, js_lookupPrefix,-        lookupPrefix, lookupPrefix_, lookupPrefixUnchecked,-        js_isDefaultNamespace, isDefaultNamespace, isDefaultNamespace_,-        js_lookupNamespaceURI, lookupNamespaceURI, lookupNamespaceURI_,+        cloneNodeUnsafe, cloneNodeUnchecked, js_normalize, normalize,+        js_isSupported, isSupported, isSupported_, js_isSameNode,+        isSameNode, isSameNode_, js_isEqualNode, isEqualNode, isEqualNode_,+        js_lookupPrefix, lookupPrefix, lookupPrefix_, lookupPrefixUnsafe,+        lookupPrefixUnchecked, js_isDefaultNamespace, isDefaultNamespace,+        isDefaultNamespace_, js_lookupNamespaceURI, lookupNamespaceURI,+        lookupNamespaceURI_, lookupNamespaceURIUnsafe,         lookupNamespaceURIUnchecked, js_compareDocumentPosition,         compareDocumentPosition, compareDocumentPosition_, js_contains,         contains, contains_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,@@ -26,25 +33,31 @@         pattern DOCUMENT_POSITION_CONTAINS,         pattern DOCUMENT_POSITION_CONTAINED_BY,         pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, js_getNodeName,-        getNodeName, getNodeNameUnchecked, js_setNodeValue, setNodeValue,-        js_getNodeValue, getNodeValue, getNodeValueUnchecked,-        js_getNodeType, getNodeType, js_getParentNode, getParentNode,+        getNodeName, getNodeNameUnsafe, getNodeNameUnchecked,+        js_setNodeValue, setNodeValue, js_getNodeValue, getNodeValue,+        getNodeValueUnsafe, getNodeValueUnchecked, js_getNodeType,+        getNodeType, js_getParentNode, getParentNode, getParentNodeUnsafe,         getParentNodeUnchecked, js_getChildNodes, getChildNodes,-        getChildNodesUnchecked, js_getFirstChild, getFirstChild,-        getFirstChildUnchecked, js_getLastChild, getLastChild,+        getChildNodesUnsafe, getChildNodesUnchecked, js_getFirstChild,+        getFirstChild, getFirstChildUnsafe, getFirstChildUnchecked,+        js_getLastChild, getLastChild, getLastChildUnsafe,         getLastChildUnchecked, js_getPreviousSibling, getPreviousSibling,-        getPreviousSiblingUnchecked, js_getNextSibling, getNextSibling,+        getPreviousSiblingUnsafe, getPreviousSiblingUnchecked,+        js_getNextSibling, getNextSibling, getNextSiblingUnsafe,         getNextSiblingUnchecked, js_getOwnerDocument, getOwnerDocument,-        getOwnerDocumentUnchecked, js_getNamespaceURI, getNamespaceURI,+        getOwnerDocumentUnsafe, getOwnerDocumentUnchecked,+        js_getNamespaceURI, getNamespaceURI, getNamespaceURIUnsafe,         getNamespaceURIUnchecked, js_setPrefix, setPrefix, js_getPrefix,-        getPrefix, getPrefixUnchecked, js_getLocalName, getLocalName,-        getLocalNameUnchecked, js_getBaseURI, getBaseURI,-        getBaseURIUnchecked, js_setTextContent, setTextContent,-        js_getTextContent, getTextContent, getTextContentUnchecked,-        js_getParentElement, getParentElement, getParentElementUnchecked,-        Node, castToNode, gTypeNode, IsNode, toNode)+        getPrefix, getPrefixUnsafe, getPrefixUnchecked, js_getLocalName,+        getLocalName, getLocalNameUnsafe, getLocalNameUnchecked,+        js_getBaseURI, getBaseURI, getBaseURIUnsafe, getBaseURIUnchecked,+        js_setTextContent, setTextContent, js_getTextContent,+        getTextContent, getTextContentUnsafe, getTextContentUnchecked,+        js_getParentElement, getParentElement, getParentElementUnsafe,+        getParentElementUnchecked, Node(..), gTypeNode, IsNode, toNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -60,6 +73,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"         js_insertBefore ::@@ -88,6 +111,19 @@             (maybeToNullable (fmap toNode refChild))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> +insertBeforeUnsafe ::+                   (MonadIO m, IsNode self, IsNode newChild, IsNode refChild,+                    HasCallStack) =>+                     self -> Maybe newChild -> Maybe refChild -> m Node+insertBeforeUnsafe self newChild refChild+  = liftIO+      ((nullableToMaybe <$>+          (js_insertBefore (toNode self)+             (maybeToNullable (fmap toNode newChild))+             (maybeToNullable (fmap toNode refChild))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation>  insertBeforeUnchecked ::                       (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>                         self -> Maybe newChild -> Maybe refChild -> m Node@@ -125,6 +161,19 @@             (maybeToNullable (fmap toNode oldChild))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> +replaceChildUnsafe ::+                   (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild,+                    HasCallStack) =>+                     self -> Maybe newChild -> Maybe oldChild -> m Node+replaceChildUnsafe self newChild oldChild+  = liftIO+      ((nullableToMaybe <$>+          (js_replaceChild (toNode self)+             (maybeToNullable (fmap toNode newChild))+             (maybeToNullable (fmap toNode oldChild))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation>  replaceChildUnchecked ::                       (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>                         self -> Maybe newChild -> Maybe oldChild -> m Node@@ -159,6 +208,17 @@             (maybeToNullable (fmap toNode oldChild))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> +removeChildUnsafe ::+                  (MonadIO m, IsNode self, IsNode oldChild, HasCallStack) =>+                    self -> Maybe oldChild -> m Node+removeChildUnsafe self oldChild+  = liftIO+      ((nullableToMaybe <$>+          (js_removeChild (toNode self)+             (maybeToNullable (fmap toNode oldChild))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation>  removeChildUnchecked ::                      (MonadIO m, IsNode self, IsNode oldChild) =>                        self -> Maybe oldChild -> m Node@@ -192,6 +252,17 @@             (maybeToNullable (fmap toNode newChild))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> +appendChildUnsafe ::+                  (MonadIO m, IsNode self, IsNode newChild, HasCallStack) =>+                    self -> Maybe newChild -> m Node+appendChildUnsafe self newChild+  = liftIO+      ((nullableToMaybe <$>+          (js_appendChild (toNode self)+             (maybeToNullable (fmap toNode newChild))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation>  appendChildUnchecked ::                      (MonadIO m, IsNode self, IsNode newChild) =>                        self -> Maybe newChild -> m Node@@ -229,6 +300,14 @@   = liftIO (void (js_cloneNode (toNode self) deep))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> +cloneNodeUnsafe ::+                (MonadIO m, IsNode self, HasCallStack) => self -> Bool -> m Node+cloneNodeUnsafe self deep+  = liftIO+      ((nullableToMaybe <$> (js_cloneNode (toNode self) deep)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation>  cloneNodeUnchecked ::                    (MonadIO m, IsNode self) => self -> Bool -> m Node cloneNodeUnchecked self deep@@ -333,6 +412,17 @@          (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> +lookupPrefixUnsafe ::+                   (MonadIO m, IsNode self, ToJSString namespaceURI, HasCallStack,+                    FromJSString result) =>+                     self -> Maybe namespaceURI -> m result+lookupPrefixUnsafe self namespaceURI+  = liftIO+      ((fromMaybeJSString <$>+          (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation>  lookupPrefixUnchecked ::                       (MonadIO m, IsNode self, ToJSString namespaceURI,                        FromJSString result) =>@@ -388,6 +478,17 @@          (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> +lookupNamespaceURIUnsafe ::+                         (MonadIO m, IsNode self, ToJSString prefix, HasCallStack,+                          FromJSString result) =>+                           self -> Maybe prefix -> m result+lookupNamespaceURIUnsafe self prefix+  = liftIO+      ((fromMaybeJSString <$>+          (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation>  lookupNamespaceURIUnchecked ::                             (MonadIO m, IsNode self, ToJSString prefix, FromJSString result) =>                               self -> Maybe prefix -> m result@@ -468,6 +569,15 @@   = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> +getNodeNameUnsafe ::+                  (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                    self -> m result+getNodeNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getNodeName (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation>  getNodeNameUnchecked ::                      (MonadIO m, IsNode self, FromJSString result) => self -> m result getNodeNameUnchecked self@@ -495,6 +605,15 @@   = liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +getNodeValueUnsafe ::+                   (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                     self -> m result+getNodeValueUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getNodeValue (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation>  getNodeValueUnchecked ::                       (MonadIO m, IsNode self, FromJSString result) => self -> m result getNodeValueUnchecked self@@ -517,6 +636,14 @@   = liftIO (nullableToMaybe <$> (js_getParentNode (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation> +getParentNodeUnsafe ::+                    (MonadIO m, IsNode self, HasCallStack) => self -> m Node+getParentNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getParentNode (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation>  getParentNodeUnchecked ::                        (MonadIO m, IsNode self) => self -> m Node getParentNodeUnchecked self@@ -533,6 +660,14 @@   = liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> +getChildNodesUnsafe ::+                    (MonadIO m, IsNode self, HasCallStack) => self -> m NodeList+getChildNodesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getChildNodes (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation>  getChildNodesUnchecked ::                        (MonadIO m, IsNode self) => self -> m NodeList getChildNodesUnchecked self@@ -548,6 +683,14 @@   = liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation> +getFirstChildUnsafe ::+                    (MonadIO m, IsNode self, HasCallStack) => self -> m Node+getFirstChildUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFirstChild (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation>  getFirstChildUnchecked ::                        (MonadIO m, IsNode self) => self -> m Node getFirstChildUnchecked self@@ -563,6 +706,14 @@   = liftIO (nullableToMaybe <$> (js_getLastChild (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation> +getLastChildUnsafe ::+                   (MonadIO m, IsNode self, HasCallStack) => self -> m Node+getLastChildUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLastChild (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation>  getLastChildUnchecked :: (MonadIO m, IsNode self) => self -> m Node getLastChildUnchecked self   = liftIO@@ -579,6 +730,14 @@       (nullableToMaybe <$> (js_getPreviousSibling (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation> +getPreviousSiblingUnsafe ::+                         (MonadIO m, IsNode self, HasCallStack) => self -> m Node+getPreviousSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreviousSibling (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation>  getPreviousSiblingUnchecked ::                             (MonadIO m, IsNode self) => self -> m Node getPreviousSiblingUnchecked self@@ -596,6 +755,14 @@   = liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation> +getNextSiblingUnsafe ::+                     (MonadIO m, IsNode self, HasCallStack) => self -> m Node+getNextSiblingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNextSibling (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation>  getNextSiblingUnchecked ::                         (MonadIO m, IsNode self) => self -> m Node getNextSiblingUnchecked self@@ -612,6 +779,14 @@   = liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation> +getOwnerDocumentUnsafe ::+                       (MonadIO m, IsNode self, HasCallStack) => self -> m Document+getOwnerDocumentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOwnerDocument (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation>  getOwnerDocumentUnchecked ::                           (MonadIO m, IsNode self) => self -> m Document getOwnerDocumentUnchecked self@@ -630,6 +805,15 @@   = liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> +getNamespaceURIUnsafe ::+                      (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                        self -> m result+getNamespaceURIUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getNamespaceURI (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation>  getNamespaceURIUnchecked ::                          (MonadIO m, IsNode self, FromJSString result) => self -> m result getNamespaceURIUnchecked self@@ -658,6 +842,15 @@   = liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +getPrefixUnsafe ::+                (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                  self -> m result+getPrefixUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getPrefix (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation>  getPrefixUnchecked ::                    (MonadIO m, IsNode self, FromJSString result) => self -> m result getPrefixUnchecked self@@ -675,6 +868,15 @@   = liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> +getLocalNameUnsafe ::+                   (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                     self -> m result+getLocalNameUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getLocalName (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation>  getLocalNameUnchecked ::                       (MonadIO m, IsNode self, FromJSString result) => self -> m result getLocalNameUnchecked self@@ -692,6 +894,15 @@   = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> +getBaseURIUnsafe ::+                 (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                   self -> m result+getBaseURIUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getBaseURI (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation>  getBaseURIUnchecked ::                     (MonadIO m, IsNode self, FromJSString result) => self -> m result getBaseURIUnchecked self@@ -719,6 +930,15 @@   = liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +getTextContentUnsafe ::+                     (MonadIO m, IsNode self, HasCallStack, FromJSString result) =>+                       self -> m result+getTextContentUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getTextContent (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation>  getTextContentUnchecked ::                         (MonadIO m, IsNode self, FromJSString result) => self -> m result getTextContentUnchecked self@@ -734,6 +954,14 @@                  (MonadIO m, IsNode self) => self -> m (Maybe Element) getParentElement self   = liftIO (nullableToMaybe <$> (js_getParentElement (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation> +getParentElementUnsafe ::+                       (MonadIO m, IsNode self, HasCallStack) => self -> m Element+getParentElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getParentElement (toNode self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation>  getParentElementUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeFilter        (js_acceptNode, acceptNode, acceptNode_, pattern FILTER_ACCEPT,         pattern FILTER_REJECT, pattern FILTER_SKIP, pattern SHOW_ALL,@@ -7,10 +12,10 @@         pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION,         pattern SHOW_COMMENT, pattern SHOW_DOCUMENT,         pattern SHOW_DOCUMENT_TYPE, pattern SHOW_DOCUMENT_FRAGMENT,-        pattern SHOW_NOTATION, NodeFilter, castToNodeFilter,-        gTypeNodeFilter)+        pattern SHOW_NOTATION, NodeFilter(..), gTypeNodeFilter)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"acceptNode\"]($2)"         js_acceptNode :: NodeFilter -> Nullable Node -> IO Int
src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeIterator-       (js_nextNode, nextNode, nextNode_, nextNodeUnchecked,-        js_previousNode, previousNode, previousNode_,-        previousNodeUnchecked, js_detach, detach, js_getRoot, getRoot,-        getRootUnchecked, js_getWhatToShow, getWhatToShow, js_getFilter,-        getFilter, getFilterUnchecked, js_getExpandEntityReferences,+       (js_nextNode, nextNode, nextNode_, nextNodeUnsafe,+        nextNodeUnchecked, js_previousNode, previousNode, previousNode_,+        previousNodeUnsafe, previousNodeUnchecked, js_detach, detach,+        js_getRoot, getRoot, getRootUnsafe, getRootUnchecked,+        js_getWhatToShow, getWhatToShow, js_getFilter, getFilter,+        getFilterUnsafe, getFilterUnchecked, js_getExpandEntityReferences,         getExpandEntityReferences, js_getReferenceNode, getReferenceNode,-        getReferenceNodeUnchecked, js_getPointerBeforeReferenceNode,-        getPointerBeforeReferenceNode, NodeIterator, castToNodeIterator,-        gTypeNodeIterator)+        getReferenceNodeUnsafe, getReferenceNodeUnchecked,+        js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode,+        NodeIterator(..), gTypeNodeIterator)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode         :: NodeIterator -> IO (Nullable Node)@@ -39,6 +56,14 @@ nextNode_ self = liftIO (void (js_nextNode (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> +nextNodeUnsafe ::+               (MonadIO m, HasCallStack) => NodeIterator -> m Node+nextNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_nextNode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation>  nextNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node nextNodeUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_nextNode (self)))@@ -56,6 +81,14 @@ previousNode_ self = liftIO (void (js_previousNode (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> +previousNodeUnsafe ::+                   (MonadIO m, HasCallStack) => NodeIterator -> m Node+previousNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_previousNode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation>  previousNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node previousNodeUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_previousNode (self)))@@ -75,6 +108,14 @@ getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> +getRootUnsafe ::+              (MonadIO m, HasCallStack) => NodeIterator -> m Node+getRootUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRoot (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation>  getRootUnchecked :: (MonadIO m) => NodeIterator -> m Node getRootUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getRoot (self)))@@ -94,6 +135,14 @@ getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> +getFilterUnsafe ::+                (MonadIO m, HasCallStack) => NodeIterator -> m NodeFilter+getFilterUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFilter (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation>  getFilterUnchecked :: (MonadIO m) => NodeIterator -> m NodeFilter getFilterUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getFilter (self)))@@ -114,6 +163,14 @@ getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) getReferenceNode self   = liftIO (nullableToMaybe <$> (js_getReferenceNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> +getReferenceNodeUnsafe ::+                       (MonadIO m, HasCallStack) => NodeIterator -> m Node+getReferenceNodeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getReferenceNode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation>  getReferenceNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node
src/GHCJS/DOM/JSFFI/Generated/NodeList.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NodeList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        NodeList, castToNodeList, gTypeNodeList, IsNodeList, toNodeList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, NodeList(..), gTypeNodeList, IsNodeList, toNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         NodeList -> Word -> IO (Nullable Node)@@ -32,6 +48,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation>  item_ :: (MonadIO m, IsNodeList self) => self -> Word -> m () item_ self index = liftIO (void (js_item (toNodeList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> +itemUnsafe ::+           (MonadIO m, IsNodeList self, HasCallStack) =>+             self -> Word -> m Node+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (toNodeList self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/Notification.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Notification-       (js_show, show, showEvent, error, close, click, Notification,-        castToNotification, gTypeNotification)+       (js_show, show, showEvent, error, close, click, Notification(..),+        gTypeNotification)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"show\"]()" js_show ::         Notification -> IO ()
src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NotificationCenter        (js_createNotification, createNotification, createNotification_,-        createNotificationUnchecked, js_checkPermission, checkPermission,-        checkPermission_, js_requestPermission, requestPermission,-        NotificationCenter, castToNotificationCenter,+        createNotificationUnsafe, createNotificationUnchecked,+        js_checkPermission, checkPermission, checkPermission_,+        js_requestPermission, requestPermission, NotificationCenter(..),         gTypeNotificationCenter)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification ::@@ -52,6 +68,19 @@          (js_createNotification (self) (toJSString iconUrl)             (toJSString title)             (toJSString body)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> +createNotificationUnsafe ::+                         (MonadIO m, ToJSString iconUrl, ToJSString title, ToJSString body,+                          HasCallStack) =>+                           NotificationCenter -> iconUrl -> title -> body -> m Notification+createNotificationUnsafe self iconUrl title body+  = liftIO+      ((nullableToMaybe <$>+          (js_createNotification (self) (toJSString iconUrl)+             (toJSString title)+             (toJSString body)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation>  createNotificationUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.NotificationPermissionCallback        (newNotificationPermissionCallback,         newNotificationPermissionCallbackSync,@@ -6,6 +11,7 @@         NotificationPermissionCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation>  newNotificationPermissionCallback ::
src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OESStandardDerivatives        (pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES,-        OESStandardDerivatives, castToOESStandardDerivatives,-        gTypeOESStandardDerivatives)+        OESStandardDerivatives(..), gTypeOESStandardDerivatives)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,4 +25,14 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern FRAGMENT_SHADER_DERIVATIVE_HINT_OES = 35723
src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OESTextureHalfFloat-       (pattern HALF_FLOAT_OES, OESTextureHalfFloat,-        castToOESTextureHalfFloat, gTypeOESTextureHalfFloat)+       (pattern HALF_FLOAT_OES, OESTextureHalfFloat(..),+        gTypeOESTextureHalfFloat)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,4 +25,14 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern HALF_FLOAT_OES = 36193
src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs view
@@ -1,14 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject        (js_createVertexArrayOES, createVertexArrayOES,-        createVertexArrayOES_, createVertexArrayOESUnchecked,-        js_deleteVertexArrayOES, deleteVertexArrayOES, js_isVertexArrayOES,-        isVertexArrayOES, isVertexArrayOES_, js_bindVertexArrayOES,-        bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES,-        OESVertexArrayObject, castToOESVertexArrayObject,+        createVertexArrayOES_, createVertexArrayOESUnsafe,+        createVertexArrayOESUnchecked, js_deleteVertexArrayOES,+        deleteVertexArrayOES, js_isVertexArrayOES, isVertexArrayOES,+        isVertexArrayOES_, js_bindVertexArrayOES, bindVertexArrayOES,+        pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject(..),         gTypeOESVertexArrayObject)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()"         js_createVertexArrayOES ::@@ -41,6 +57,15 @@                       (MonadIO m) => OESVertexArrayObject -> m () createVertexArrayOES_ self   = liftIO (void (js_createVertexArrayOES (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> +createVertexArrayOESUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             OESVertexArrayObject -> m WebGLVertexArrayObjectOES+createVertexArrayOESUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createVertexArrayOES (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation>  createVertexArrayOESUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent-       (js_getRenderedBuffer, getRenderedBuffer,-        getRenderedBufferUnchecked, OfflineAudioCompletionEvent,-        castToOfflineAudioCompletionEvent,+       (js_getRenderedBuffer, getRenderedBuffer, getRenderedBufferUnsafe,+        getRenderedBufferUnchecked, OfflineAudioCompletionEvent(..),         gTypeOfflineAudioCompletionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"renderedBuffer\"]"         js_getRenderedBuffer ::@@ -31,6 +46,15 @@                   (MonadIO m) => OfflineAudioCompletionEvent -> m (Maybe AudioBuffer) getRenderedBuffer self   = liftIO (nullableToMaybe <$> (js_getRenderedBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> +getRenderedBufferUnsafe ::+                        (MonadIO m, HasCallStack) =>+                          OfflineAudioCompletionEvent -> m AudioBuffer+getRenderedBufferUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRenderedBuffer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation>  getRenderedBufferUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OfflineAudioContext        (js_newOfflineAudioContext, newOfflineAudioContext,-        OfflineAudioContext, castToOfflineAudioContext,-        gTypeOfflineAudioContext)+        OfflineAudioContext(..), gTypeOfflineAudioContext)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"OfflineAudioContext\"]($1,\n$2, $3)"
src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OscillatorNode        (js_start, start, js_stop, stop, js_noteOn, noteOn, js_noteOff,         noteOff, js_setPeriodicWave, setPeriodicWave, pattern SINE,@@ -6,11 +11,12 @@         pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,         pattern PLAYING_STATE, pattern FINISHED_STATE, js_setType, setType,         js_getType, getType, js_getPlaybackState, getPlaybackState,-        js_getFrequency, getFrequency, getFrequencyUnchecked, js_getDetune,-        getDetune, getDetuneUnchecked, ended, OscillatorNode,-        castToOscillatorNode, gTypeOscillatorNode)+        js_getFrequency, getFrequency, getFrequencyUnsafe,+        getFrequencyUnchecked, js_getDetune, getDetune, getDetuneUnsafe,+        getDetuneUnchecked, ended, OscillatorNode(..), gTypeOscillatorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"start\"]($2)" js_start ::         OscillatorNode -> Double -> IO ()@@ -107,6 +123,14 @@   = liftIO (nullableToMaybe <$> (js_getFrequency (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> +getFrequencyUnsafe ::+                   (MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam+getFrequencyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFrequency (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation>  getFrequencyUnchecked ::                       (MonadIO m) => OscillatorNode -> m AudioParam getFrequencyUnchecked self@@ -118,6 +142,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation>  getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> +getDetuneUnsafe ::+                (MonadIO m, HasCallStack) => OscillatorNode -> m AudioParam+getDetuneUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDetune (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation>  getDetuneUnchecked :: (MonadIO m) => OscillatorNode -> m AudioParam
src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.OverflowEvent        (pattern HORIZONTAL, pattern VERTICAL, pattern BOTH, js_getOrient,         getOrient, js_getHorizontalOverflow, getHorizontalOverflow,-        js_getVerticalOverflow, getVerticalOverflow, OverflowEvent,-        castToOverflowEvent, gTypeOverflowEvent)+        js_getVerticalOverflow, getVerticalOverflow, OverflowEvent(..),+        gTypeOverflowEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern HORIZONTAL = 0 pattern VERTICAL = 1 pattern BOTH = 2
src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PageTransitionEvent-       (js_getPersisted, getPersisted, PageTransitionEvent,-        castToPageTransitionEvent, gTypePageTransitionEvent)+       (js_getPersisted, getPersisted, PageTransitionEvent(..),+        gTypePageTransitionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "($1[\"persisted\"] ? 1 : 0)"         js_getPersisted :: PageTransitionEvent -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PannerNode        (js_setPosition, setPosition, js_setOrientation, setOrientation,         js_setVelocity, setVelocity, pattern EQUALPOWER, pattern HRTF,@@ -14,10 +19,11 @@         setConeInnerAngle, js_getConeInnerAngle, getConeInnerAngle,         js_setConeOuterAngle, setConeOuterAngle, js_getConeOuterAngle,         getConeOuterAngle, js_setConeOuterGain, setConeOuterGain,-        js_getConeOuterGain, getConeOuterGain, PannerNode,-        castToPannerNode, gTypePannerNode)+        js_getConeOuterGain, getConeOuterGain, PannerNode(..),+        gTypePannerNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -33,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"         js_setPosition :: PannerNode -> Float -> Float -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Path2D.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Path2D        (js_newPath2D, newPath2D, js_newPath2D', newPath2D',         js_newPath2D'', newPath2D'', js_addPath, addPath, js_closePath,         closePath, js_moveTo, moveTo, js_lineTo, lineTo,         js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo,-        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc, Path2D,-        castToPath2D, gTypePath2D)+        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc,+        Path2D(..), gTypePath2D)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"Path2D\"]()"         js_newPath2D :: IO Path2D
src/GHCJS/DOM/JSFFI/Generated/Performance.hs view
@@ -1,21 +1,29 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Performance        (js_webkitGetEntries, webkitGetEntries, webkitGetEntries_,-        webkitGetEntriesUnchecked, js_webkitGetEntriesByType,-        webkitGetEntriesByType, webkitGetEntriesByType_,+        webkitGetEntriesUnsafe, webkitGetEntriesUnchecked,+        js_webkitGetEntriesByType, webkitGetEntriesByType,+        webkitGetEntriesByType_, webkitGetEntriesByTypeUnsafe,         webkitGetEntriesByTypeUnchecked, js_webkitGetEntriesByName,         webkitGetEntriesByName, webkitGetEntriesByName_,-        webkitGetEntriesByNameUnchecked, js_webkitClearResourceTimings,-        webkitClearResourceTimings, js_webkitSetResourceTimingBufferSize,+        webkitGetEntriesByNameUnsafe, webkitGetEntriesByNameUnchecked,+        js_webkitClearResourceTimings, webkitClearResourceTimings,+        js_webkitSetResourceTimingBufferSize,         webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark,         js_webkitClearMarks, webkitClearMarks, js_webkitMeasure,         webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now,-        now, now_, js_getNavigation, getNavigation, getNavigationUnchecked,-        js_getTiming, getTiming, getTimingUnchecked,-        webKitResourceTimingBufferFull, Performance, castToPerformance,-        gTypePerformance)+        now, now_, js_getNavigation, getNavigation, getNavigationUnsafe,+        getNavigationUnchecked, js_getTiming, getTiming, getTimingUnsafe,+        getTimingUnchecked, webKitResourceTimingBufferFull,+        Performance(..), gTypePerformance)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -31,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"webkitGetEntries\"]()"         js_webkitGetEntries ::@@ -47,6 +65,14 @@ webkitGetEntries_ self = liftIO (void (js_webkitGetEntries (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> +webkitGetEntriesUnsafe ::+                       (MonadIO m, HasCallStack) => Performance -> m PerformanceEntryList+webkitGetEntriesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_webkitGetEntries (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation>  webkitGetEntriesUnchecked ::                           (MonadIO m) => Performance -> m PerformanceEntryList webkitGetEntriesUnchecked self@@ -75,6 +101,16 @@       (void (js_webkitGetEntriesByType (self) (toJSString entryType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> +webkitGetEntriesByTypeUnsafe ::+                             (MonadIO m, ToJSString entryType, HasCallStack) =>+                               Performance -> entryType -> m PerformanceEntryList+webkitGetEntriesByTypeUnsafe self entryType+  = liftIO+      ((nullableToMaybe <$>+          (js_webkitGetEntriesByType (self) (toJSString entryType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation>  webkitGetEntriesByTypeUnchecked ::                                 (MonadIO m, ToJSString entryType) =>                                   Performance -> entryType -> m PerformanceEntryList@@ -110,6 +146,17 @@             (toJSString entryType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> +webkitGetEntriesByNameUnsafe ::+                             (MonadIO m, ToJSString name, ToJSString entryType, HasCallStack) =>+                               Performance -> name -> entryType -> m PerformanceEntryList+webkitGetEntriesByNameUnsafe self name entryType+  = liftIO+      ((nullableToMaybe <$>+          (js_webkitGetEntriesByName (self) (toJSString name)+             (toJSString entryType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation>  webkitGetEntriesByNameUnchecked ::                                 (MonadIO m, ToJSString name, ToJSString entryType) =>                                   Performance -> name -> entryType -> m PerformanceEntryList@@ -204,6 +251,14 @@   = liftIO (nullableToMaybe <$> (js_getNavigation (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> +getNavigationUnsafe ::+                    (MonadIO m, HasCallStack) => Performance -> m PerformanceNavigation+getNavigationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNavigation (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation>  getNavigationUnchecked ::                        (MonadIO m) => Performance -> m PerformanceNavigation getNavigationUnchecked self@@ -216,6 +271,14 @@ getTiming ::           (MonadIO m) => Performance -> m (Maybe PerformanceTiming) getTiming self = liftIO (nullableToMaybe <$> (js_getTiming (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> +getTimingUnsafe ::+                (MonadIO m, HasCallStack) => Performance -> m PerformanceTiming+getTimingUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTiming (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation>  getTimingUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PerformanceEntry        (js_getName, getName, js_getEntryType, getEntryType,         js_getStartTime, getStartTime, js_getDuration, getDuration,-        PerformanceEntry, castToPerformanceEntry, gTypePerformanceEntry,-        IsPerformanceEntry, toPerformanceEntry)+        PerformanceEntry(..), gTypePerformanceEntry, IsPerformanceEntry,+        toPerformanceEntry)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         PerformanceEntry -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList-       (js_item, item, item_, itemUnchecked, js_getLength, getLength,-        PerformanceEntryList, castToPerformanceEntryList,-        gTypePerformanceEntryList)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_getLength,+        getLength, PerformanceEntryList(..), gTypePerformanceEntryList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         PerformanceEntryList -> Word -> IO (Nullable PerformanceEntry)@@ -34,6 +49,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation>  item_ :: (MonadIO m) => PerformanceEntryList -> Word -> m () item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) =>+             PerformanceEntryList -> Word -> m PerformanceEntry+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation>  itemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PerformanceNavigation        (pattern TYPE_NAVIGATE, pattern TYPE_RELOAD,         pattern TYPE_BACK_FORWARD, pattern TYPE_RESERVED, js_getType,         getType, js_getRedirectCount, getRedirectCount,-        PerformanceNavigation, castToPerformanceNavigation,-        gTypePerformanceNavigation)+        PerformanceNavigation(..), gTypePerformanceNavigation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern TYPE_NAVIGATE = 0 pattern TYPE_RELOAD = 1 pattern TYPE_BACK_FORWARD = 2
src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PerformanceResourceTiming        (js_getInitiatorType, getInitiatorType, js_getRedirectStart,         getRedirectStart, js_getRedirectEnd, getRedirectEnd,@@ -7,10 +12,11 @@         js_getConnectStart, getConnectStart, js_getConnectEnd,         getConnectEnd, js_getSecureConnectionStart,         getSecureConnectionStart, js_getRequestStart, getRequestStart,-        js_getResponseEnd, getResponseEnd, PerformanceResourceTiming,-        castToPerformanceResourceTiming, gTypePerformanceResourceTiming)+        js_getResponseEnd, getResponseEnd, PerformanceResourceTiming(..),+        gTypePerformanceResourceTiming)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"initiatorType\"]"         js_getInitiatorType :: PerformanceResourceTiming -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PerformanceTiming        (js_getNavigationStart, getNavigationStart, js_getUnloadEventStart,         getUnloadEventStart, js_getUnloadEventEnd, getUnloadEventEnd,@@ -15,10 +20,10 @@         getDomContentLoadedEventStart, js_getDomContentLoadedEventEnd,         getDomContentLoadedEventEnd, js_getDomComplete, getDomComplete,         js_getLoadEventStart, getLoadEventStart, js_getLoadEventEnd,-        getLoadEventEnd, PerformanceTiming, castToPerformanceTiming,-        gTypePerformanceTiming)+        getLoadEventEnd, PerformanceTiming(..), gTypePerformanceTiming)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -34,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"navigationStart\"]"         js_getNavigationStart :: PerformanceTiming -> IO Double
src/GHCJS/DOM/JSFFI/Generated/Plugin.hs view
@@ -1,11 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Plugin-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_getName, getName,-        js_getFilename, getFilename, js_getDescription, getDescription,-        js_getLength, getLength, Plugin, castToPlugin, gTypePlugin)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_getName, getName, js_getFilename, getFilename,+        js_getDescription, getDescription, js_getLength, getLength,+        Plugin(..), gTypePlugin)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         Plugin -> Word -> IO (Nullable MimeType)@@ -35,6 +52,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => Plugin -> Word -> m MimeType+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation>  itemUnchecked :: (MonadIO m) => Plugin -> Word -> m MimeType itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -55,6 +80,15 @@            (MonadIO m, ToJSString name) => Plugin -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  Plugin -> name -> m MimeType+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PluginArray-       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,-        namedItem_, namedItemUnchecked, js_refresh, refresh, js_getLength,-        getLength, PluginArray, castToPluginArray, gTypePluginArray)+       (js_item, item, item_, itemUnsafe, itemUnchecked, js_namedItem,+        namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked,+        js_refresh, refresh, js_getLength, getLength, PluginArray(..),+        gTypePluginArray)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         PluginArray -> Word -> IO (Nullable Plugin)@@ -34,6 +51,14 @@ item_ self index = liftIO (void (js_item (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> +itemUnsafe ::+           (MonadIO m, HasCallStack) => PluginArray -> Word -> m Plugin+itemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_item (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation>  itemUnchecked :: (MonadIO m) => PluginArray -> Word -> m Plugin itemUnchecked self index   = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))@@ -54,6 +79,15 @@            (MonadIO m, ToJSString name) => PluginArray -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  PluginArray -> name -> m Plugin+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs view
@@ -1,9 +1,14 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PopStateEvent-       (js_getState, getState, PopStateEvent, castToPopStateEvent,-        gTypePopStateEvent)+       (js_getState, getState, PopStateEvent(..), gTypePopStateEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +24,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"state\"]" js_getState ::         PopStateEvent -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PositionCallback        (newPositionCallback, newPositionCallbackSync,         newPositionCallbackAsync, PositionCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallback ::
src/GHCJS/DOM/JSFFI/Generated/PositionError.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PositionError        (pattern PERMISSION_DENIED, pattern POSITION_UNAVAILABLE,         pattern TIMEOUT, js_getCode, getCode, js_getMessage, getMessage,-        PositionError, castToPositionError, gTypePositionError)+        PositionError(..), gTypePositionError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern PERMISSION_DENIED = 1 pattern POSITION_UNAVAILABLE = 2 pattern TIMEOUT = 3
src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.PositionErrorCallback        (newPositionErrorCallback, newPositionErrorCallbackSync,         newPositionErrorCallbackAsync, PositionErrorCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallback ::
src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction-       (js_getTarget, getTarget, getTargetUnchecked, js_getSheet,-        getSheet, getSheetUnchecked, ProcessingInstruction,-        castToProcessingInstruction, gTypeProcessingInstruction)+       (js_getTarget, getTarget, getTargetUnsafe, getTargetUnchecked,+        js_getSheet, getSheet, getSheetUnsafe, getSheetUnchecked,+        ProcessingInstruction(..), gTypeProcessingInstruction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         ProcessingInstruction -> IO (Nullable JSString)@@ -32,6 +48,15 @@   = liftIO (fromMaybeJSString <$> (js_getTarget (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> +getTargetUnsafe ::+                (MonadIO m, HasCallStack, FromJSString result) =>+                  ProcessingInstruction -> m result+getTargetUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getTarget (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation>  getTargetUnchecked ::                    (MonadIO m, FromJSString result) =>                      ProcessingInstruction -> m result@@ -45,6 +70,14 @@ getSheet ::          (MonadIO m) => ProcessingInstruction -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> +getSheetUnsafe ::+               (MonadIO m, HasCallStack) => ProcessingInstruction -> m StyleSheet+getSheetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSheet (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation>  getSheetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ProgressEvent        (js_getLengthComputable, getLengthComputable, js_getLoaded,-        getLoaded, js_getTotal, getTotal, ProgressEvent,-        castToProgressEvent, gTypeProgressEvent, IsProgressEvent,-        toProgressEvent)+        getLoaded, js_getTotal, getTotal, ProgressEvent(..),+        gTypeProgressEvent, IsProgressEvent, toProgressEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable ::
src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.QuickTimePluginReplacement        (js_postEvent, postEvent, js_getMovieSize, getMovieSize,         js_getTimedMetaData, getTimedMetaData, js_getAccessLog,         getAccessLog, js_getErrorLog, getErrorLog,-        QuickTimePluginReplacement, castToQuickTimePluginReplacement,-        gTypeQuickTimePluginReplacement)+        QuickTimePluginReplacement(..), gTypeQuickTimePluginReplacement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"postEvent\"]($2)"         js_postEvent :: QuickTimePluginReplacement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RGBColor-       (js_getRed, getRed, getRedUnchecked, js_getGreen, getGreen,-        getGreenUnchecked, js_getBlue, getBlue, getBlueUnchecked, RGBColor,-        castToRGBColor, gTypeRGBColor)+       (js_getRed, getRed, getRedUnsafe, getRedUnchecked, js_getGreen,+        getGreen, getGreenUnsafe, getGreenUnchecked, js_getBlue, getBlue,+        getBlueUnsafe, getBlueUnchecked, RGBColor(..), gTypeRGBColor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"red\"]" js_getRed ::         RGBColor -> IO (Nullable CSSPrimitiveValue)@@ -29,6 +45,14 @@ getRed self = liftIO (nullableToMaybe <$> (js_getRed (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> +getRedUnsafe ::+             (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue+getRedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRed (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation>  getRedUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue getRedUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getRed (self)))@@ -41,6 +65,14 @@ getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> +getGreenUnsafe ::+               (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue+getGreenUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getGreen (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation>  getGreenUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue getGreenUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getGreen (self)))@@ -51,6 +83,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation>  getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> +getBlueUnsafe ::+              (MonadIO m, HasCallStack) => RGBColor -> m CSSPrimitiveValue+getBlueUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBlue (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation>  getBlueUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue
src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCConfiguration        (js_getIceServers, getIceServers, js_getIceTransports,         getIceTransports, js_getRequestIdentity, getRequestIdentity,-        RTCConfiguration, castToRTCConfiguration, gTypeRTCConfiguration)+        RTCConfiguration(..), gTypeRTCConfiguration)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"iceServers\"]"         js_getIceServers :: RTCConfiguration -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender        (js_insertDTMF, insertDTMF, js_getCanInsertDTMF, getCanInsertDTMF,-        js_getTrack, getTrack, getTrackUnchecked, js_getToneBuffer,-        getToneBuffer, js_getDuration, getDuration, js_getInterToneGap,-        getInterToneGap, toneChange, RTCDTMFSender, castToRTCDTMFSender,+        js_getTrack, getTrack, getTrackUnsafe, getTrackUnchecked,+        js_getToneBuffer, getToneBuffer, js_getDuration, getDuration,+        js_getInterToneGap, getInterToneGap, toneChange, RTCDTMFSender(..),         gTypeRTCDTMFSender)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)"         js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO ()@@ -48,6 +64,14 @@ getTrack ::          (MonadIO m) => RTCDTMFSender -> m (Maybe MediaStreamTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> +getTrackUnsafe ::+               (MonadIO m, HasCallStack) => RTCDTMFSender -> m MediaStreamTrack+getTrackUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTrack (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation>  getTrackUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDTMFToneChangeEvent-       (js_getTone, getTone, RTCDTMFToneChangeEvent,-        castToRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent)+       (js_getTone, getTone, RTCDTMFToneChangeEvent(..),+        gTypeRTCDTMFToneChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"tone\"]" js_getTone ::         RTCDTMFToneChangeEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDataChannel        (js_send, send, js_sendView, sendView, js_sendBlob, sendBlob,         js_sendString, sendString, js_close, close, js_getLabel, getLabel,@@ -8,10 +13,10 @@         js_getId, getId, js_getReadyState, getReadyState,         js_getBufferedAmount, getBufferedAmount, js_setBinaryType,         setBinaryType, js_getBinaryType, getBinaryType, open, error,-        closeEvent, message, RTCDataChannel, castToRTCDataChannel,-        gTypeRTCDataChannel)+        closeEvent, message, RTCDataChannel(..), gTypeRTCDataChannel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"send\"]($2)" js_send ::         RTCDataChannel -> Nullable ArrayBuffer -> IO ()
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent-       (js_getChannel, getChannel, getChannelUnchecked,-        RTCDataChannelEvent, castToRTCDataChannelEvent,-        gTypeRTCDataChannelEvent)+       (js_getChannel, getChannel, getChannelUnsafe, getChannelUnchecked,+        RTCDataChannelEvent(..), gTypeRTCDataChannelEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"channel\"]" js_getChannel ::         RTCDataChannelEvent -> IO (Nullable RTCDataChannel)@@ -29,6 +44,15 @@            (MonadIO m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel) getChannel self   = liftIO (nullableToMaybe <$> (js_getChannel (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> +getChannelUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   RTCDataChannelEvent -> m RTCDataChannel+getChannelUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getChannel (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation>  getChannelUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCIceCandidate        (js_newRTCIceCandidate, newRTCIceCandidate, js_getCandidate,         getCandidate, js_getSdpMid, getSdpMid, js_getSdpMLineIndex,-        getSdpMLineIndex, RTCIceCandidate, castToRTCIceCandidate,-        gTypeRTCIceCandidate)+        getSdpMLineIndex, RTCIceCandidate(..), gTypeRTCIceCandidate)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate ::
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent-       (js_getCandidate, getCandidate, getCandidateUnchecked,-        RTCIceCandidateEvent, castToRTCIceCandidateEvent,+       (js_getCandidate, getCandidate, getCandidateUnsafe,+        getCandidateUnchecked, RTCIceCandidateEvent(..),         gTypeRTCIceCandidateEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"candidate\"]"         js_getCandidate ::@@ -30,6 +46,15 @@              (MonadIO m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate) getCandidate self   = liftIO (nullableToMaybe <$> (js_getCandidate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> +getCandidateUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     RTCIceCandidateEvent -> m RTCIceCandidate+getCandidateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCandidate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation>  getCandidateUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCIceServer        (js_getUrls, getUrls, js_getUsername, getUsername,-        js_getCredential, getCredential, RTCIceServer, castToRTCIceServer,+        js_getCredential, getCredential, RTCIceServer(..),         gTypeRTCIceServer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"urls\"]" js_getUrls ::         RTCIceServer -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCPeerConnection        (js_newRTCPeerConnection, newRTCPeerConnection, js_createOffer,         createOffer, js_createAnswer, createAnswer, js_setLocalDescription,@@ -7,23 +12,27 @@         js_getLocalStreams, getLocalStreams, getLocalStreams_,         js_getRemoteStreams, getRemoteStreams, getRemoteStreams_,         js_getStreamById, getStreamById, getStreamById_,-        getStreamByIdUnchecked, js_getConfiguration, getConfiguration,-        getConfiguration_, getConfigurationUnchecked, js_addStream,-        addStream, js_removeStream, removeStream, js_getStats, getStats,+        getStreamByIdUnsafe, getStreamByIdUnchecked, js_getConfiguration,+        getConfiguration, getConfiguration_, getConfigurationUnsafe,+        getConfigurationUnchecked, js_addStream, addStream,+        js_removeStream, removeStream, js_getStats, getStats,         js_createDataChannel, createDataChannel, createDataChannel_,-        createDataChannelUnchecked, js_createDTMFSender, createDTMFSender,-        createDTMFSender_, createDTMFSenderUnchecked, js_close, close,+        createDataChannelUnsafe, createDataChannelUnchecked,+        js_createDTMFSender, createDTMFSender, createDTMFSender_,+        createDTMFSenderUnsafe, createDTMFSenderUnchecked, js_close, close,         js_getLocalDescription, getLocalDescription,-        getLocalDescriptionUnchecked, js_getRemoteDescription,-        getRemoteDescription, getRemoteDescriptionUnchecked,+        getLocalDescriptionUnsafe, getLocalDescriptionUnchecked,+        js_getRemoteDescription, getRemoteDescription,+        getRemoteDescriptionUnsafe, getRemoteDescriptionUnchecked,         js_getSignalingState, getSignalingState, js_getIceGatheringState,         getIceGatheringState, js_getIceConnectionState,         getIceConnectionState, negotiationNeeded, iceCandidate,         signalingStateChange, addStreamEvent, removeStreamEvent,-        iceConnectionStateChange, dataChannel, RTCPeerConnection,-        castToRTCPeerConnection, gTypeRTCPeerConnection)+        iceConnectionStateChange, dataChannel, RTCPeerConnection(..),+        gTypeRTCPeerConnection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -39,6 +48,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"webkitRTCPeerConnection\"]($1)"@@ -212,6 +231,16 @@   = liftIO (void (js_getStreamById (self) (toJSString streamId)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> +getStreamByIdUnsafe ::+                    (MonadIO m, ToJSString streamId, HasCallStack) =>+                      RTCPeerConnection -> streamId -> m MediaStream+getStreamByIdUnsafe self streamId+  = liftIO+      ((nullableToMaybe <$>+          (js_getStreamById (self) (toJSString streamId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation>  getStreamByIdUnchecked ::                        (MonadIO m, ToJSString streamId) =>                          RTCPeerConnection -> streamId -> m MediaStream@@ -235,6 +264,15 @@ getConfiguration_ self = liftIO (void (js_getConfiguration (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> +getConfigurationUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         RTCPeerConnection -> m RTCConfiguration+getConfigurationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getConfiguration (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation>  getConfigurationUnchecked ::                           (MonadIO m) => RTCPeerConnection -> m RTCConfiguration getConfigurationUnchecked self@@ -307,6 +345,19 @@             (maybeToNullable (fmap toDictionary options))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> +createDataChannelUnsafe ::+                        (MonadIO m, ToJSString label, IsDictionary options,+                         HasCallStack) =>+                          RTCPeerConnection ->+                            Maybe label -> Maybe options -> m RTCDataChannel+createDataChannelUnsafe self label options+  = liftIO+      ((nullableToMaybe <$>+          (js_createDataChannel (self) (toMaybeJSString label)+             (maybeToNullable (fmap toDictionary options))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation>  createDataChannelUnchecked ::                            (MonadIO m, ToJSString label, IsDictionary options) =>                              RTCPeerConnection ->@@ -343,6 +394,17 @@             (maybeToNullable (fmap toMediaStreamTrack track))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> +createDTMFSenderUnsafe ::+                       (MonadIO m, IsMediaStreamTrack track, HasCallStack) =>+                         RTCPeerConnection -> Maybe track -> m RTCDTMFSender+createDTMFSenderUnsafe self track+  = liftIO+      ((nullableToMaybe <$>+          (js_createDTMFSender (self)+             (maybeToNullable (fmap toMediaStreamTrack track))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation>  createDTMFSenderUnchecked ::                           (MonadIO m, IsMediaStreamTrack track) =>                             RTCPeerConnection -> Maybe track -> m RTCDTMFSender@@ -370,6 +432,15 @@   = liftIO (nullableToMaybe <$> (js_getLocalDescription (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> +getLocalDescriptionUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            RTCPeerConnection -> m RTCSessionDescription+getLocalDescriptionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLocalDescription (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation>  getLocalDescriptionUnchecked ::                              (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription getLocalDescriptionUnchecked self@@ -385,6 +456,15 @@                      (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getRemoteDescription self   = liftIO (nullableToMaybe <$> (js_getRemoteDescription (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> +getRemoteDescriptionUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             RTCPeerConnection -> m RTCSessionDescription+getRemoteDescriptionUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRemoteDescription (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation>  getRemoteDescriptionUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCPeerConnectionErrorCallback        (newRTCPeerConnectionErrorCallback,         newRTCPeerConnectionErrorCallbackSync,@@ -6,6 +11,7 @@         RTCPeerConnectionErrorCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation>  newRTCPeerConnectionErrorCallback ::
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCSessionDescription        (js_newRTCSessionDescription, newRTCSessionDescription, js_setType,         setType, js_getType, getType, js_setSdp, setSdp, js_getSdp, getSdp,-        RTCSessionDescription, castToRTCSessionDescription,-        gTypeRTCSessionDescription)+        RTCSessionDescription(..), gTypeRTCSessionDescription)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"RTCSessionDescription\"]($1)"
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCSessionDescriptionCallback        (newRTCSessionDescriptionCallback,         newRTCSessionDescriptionCallbackSync,@@ -6,6 +11,7 @@         RTCSessionDescriptionCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation>  newRTCSessionDescriptionCallback ::
src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCStatsCallback        (newRTCStatsCallback, newRTCStatsCallbackSync,         newRTCStatsCallbackAsync, RTCStatsCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation>  newRTCStatsCallback ::
src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs view
@@ -1,12 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCStatsReport        (js_stat, stat, stat_, js_names, names, names_, js_getTimestamp,-        getTimestamp, getTimestampUnchecked, js_getId, getId, js_getType,-        getType, js_getLocal, getLocal, getLocalUnchecked, js_getRemote,-        getRemote, getRemoteUnchecked, RTCStatsReport,-        castToRTCStatsReport, gTypeRTCStatsReport)+        getTimestamp, getTimestampUnsafe, getTimestampUnchecked, js_getId,+        getId, js_getType, getType, js_getLocal, getLocal, getLocalUnsafe,+        getLocalUnchecked, js_getRemote, getRemote, getRemoteUnsafe,+        getRemoteUnchecked, RTCStatsReport(..), gTypeRTCStatsReport)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"stat\"]($2)" js_stat ::         RTCStatsReport -> JSString -> IO JSString@@ -59,6 +75,14 @@   = liftIO (nullableToMaybe <$> (js_getTimestamp (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> +getTimestampUnsafe ::+                   (MonadIO m, HasCallStack) => RTCStatsReport -> m Date+getTimestampUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTimestamp (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation>  getTimestampUnchecked :: (MonadIO m) => RTCStatsReport -> m Date getTimestampUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getTimestamp (self)))@@ -88,6 +112,14 @@ getLocal self = liftIO (nullableToMaybe <$> (js_getLocal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> +getLocalUnsafe ::+               (MonadIO m, HasCallStack) => RTCStatsReport -> m RTCStatsReport+getLocalUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLocal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation>  getLocalUnchecked ::                   (MonadIO m) => RTCStatsReport -> m RTCStatsReport getLocalUnchecked self@@ -100,6 +132,14 @@ getRemote ::           (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport) getRemote self = liftIO (nullableToMaybe <$> (js_getRemote (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> +getRemoteUnsafe ::+                (MonadIO m, HasCallStack) => RTCStatsReport -> m RTCStatsReport+getRemoteUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRemote (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation>  getRemoteUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse        (js_result, result, result_, js_namedItem, namedItem, namedItem_,-        namedItemUnchecked, RTCStatsResponse, castToRTCStatsResponse,+        namedItemUnsafe, namedItemUnchecked, RTCStatsResponse(..),         gTypeRTCStatsResponse)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"result\"]()" js_result ::         RTCStatsResponse -> IO JSVal@@ -50,6 +66,15 @@            (MonadIO m, ToJSString name) => RTCStatsResponse -> name -> m () namedItem_ self name   = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> +namedItemUnsafe ::+                (MonadIO m, ToJSString name, HasCallStack) =>+                  RTCStatsResponse -> name -> m RTCStatsReport+namedItemUnsafe self name+  = liftIO+      ((nullableToMaybe <$> (js_namedItem (self) (toJSString name))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation>  namedItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RadioNodeList-       (js__get, _get, _get_, _getUnchecked, js_setValue, setValue,-        js_getValue, getValue, RadioNodeList, castToRadioNodeList,+       (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_setValue,+        setValue, js_getValue, getValue, RadioNodeList(..),         gTypeRadioNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::         RadioNodeList -> Word -> IO (Nullable Node)@@ -32,6 +48,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation>  _get_ :: (MonadIO m) => RadioNodeList -> Word -> m () _get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> +_getUnsafe ::+           (MonadIO m, HasCallStack) => RadioNodeList -> Word -> m Node+_getUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js__get (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation>  _getUnchecked :: (MonadIO m) => RadioNodeList -> Word -> m Node
src/GHCJS/DOM/JSFFI/Generated/Range.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Range        (js_newRange, newRange, js_setStart, setStart, js_setEnd, setEnd,         js_setStartBefore, setStartBefore, js_setStartAfter, setStartAfter,@@ -8,15 +13,18 @@         js_compareBoundaryPoints, compareBoundaryPoints,         compareBoundaryPoints_, js_deleteContents, deleteContents,         js_extractContents, extractContents, extractContents_,-        extractContentsUnchecked, js_cloneContents, cloneContents,-        cloneContents_, cloneContentsUnchecked, js_insertNode, insertNode,+        extractContentsUnsafe, extractContentsUnchecked, js_cloneContents,+        cloneContents, cloneContents_, cloneContentsUnsafe,+        cloneContentsUnchecked, js_insertNode, insertNode,         js_surroundContents, surroundContents, js_cloneRange, cloneRange,-        cloneRange_, cloneRangeUnchecked, js_toString, toString, toString_,-        js_detach, detach, js_getClientRects, getClientRects,-        getClientRects_, getClientRectsUnchecked, js_getBoundingClientRect,+        cloneRange_, cloneRangeUnsafe, cloneRangeUnchecked, js_toString,+        toString, toString_, js_detach, detach, js_getClientRects,+        getClientRects, getClientRects_, getClientRectsUnsafe,+        getClientRectsUnchecked, js_getBoundingClientRect,         getBoundingClientRect, getBoundingClientRect_,-        getBoundingClientRectUnchecked, js_createContextualFragment,-        createContextualFragment, createContextualFragment_,+        getBoundingClientRectUnsafe, getBoundingClientRectUnchecked,+        js_createContextualFragment, createContextualFragment,+        createContextualFragment_, createContextualFragmentUnsafe,         createContextualFragmentUnchecked, js_intersectsNode,         intersectsNode, intersectsNode_, js_compareNode, compareNode,         compareNode_, js_comparePoint, comparePoint, comparePoint_,@@ -25,14 +33,16 @@         pattern END_TO_END, pattern END_TO_START, pattern NODE_BEFORE,         pattern NODE_AFTER, pattern NODE_BEFORE_AND_AFTER,         pattern NODE_INSIDE, js_getStartContainer, getStartContainer,-        getStartContainerUnchecked, js_getStartOffset, getStartOffset,-        js_getEndContainer, getEndContainer, getEndContainerUnchecked,+        getStartContainerUnsafe, getStartContainerUnchecked,+        js_getStartOffset, getStartOffset, js_getEndContainer,+        getEndContainer, getEndContainerUnsafe, getEndContainerUnchecked,         js_getEndOffset, getEndOffset, js_getCollapsed, getCollapsed,         js_getCommonAncestorContainer, getCommonAncestorContainer,-        getCommonAncestorContainerUnchecked, Range, castToRange,-        gTypeRange)+        getCommonAncestorContainerUnsafe,+        getCommonAncestorContainerUnchecked, Range(..), gTypeRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -48,6 +58,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "new window[\"Range\"]()"         js_newRange :: IO Range@@ -187,6 +207,14 @@ extractContents_ self = liftIO (void (js_extractContents (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> +extractContentsUnsafe ::+                      (MonadIO m, HasCallStack) => Range -> m DocumentFragment+extractContentsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_extractContents (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation>  extractContentsUnchecked ::                          (MonadIO m) => Range -> m DocumentFragment extractContentsUnchecked self@@ -206,6 +234,14 @@ cloneContents_ self = liftIO (void (js_cloneContents (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> +cloneContentsUnsafe ::+                    (MonadIO m, HasCallStack) => Range -> m DocumentFragment+cloneContentsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_cloneContents (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation>  cloneContentsUnchecked ::                        (MonadIO m) => Range -> m DocumentFragment cloneContentsUnchecked self@@ -245,6 +281,13 @@ cloneRange_ self = liftIO (void (js_cloneRange (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> +cloneRangeUnsafe :: (MonadIO m, HasCallStack) => Range -> m Range+cloneRangeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_cloneRange (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation>  cloneRangeUnchecked :: (MonadIO m) => Range -> m Range cloneRangeUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_cloneRange (self)))@@ -280,6 +323,14 @@ getClientRects_ self = liftIO (void (js_getClientRects (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> +getClientRectsUnsafe ::+                     (MonadIO m, HasCallStack) => Range -> m ClientRectList+getClientRectsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClientRects (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation>  getClientRectsUnchecked :: (MonadIO m) => Range -> m ClientRectList getClientRectsUnchecked self   = liftIO@@ -300,6 +351,14 @@   = liftIO (void (js_getBoundingClientRect (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> +getBoundingClientRectUnsafe ::+                            (MonadIO m, HasCallStack) => Range -> m ClientRect+getBoundingClientRectUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBoundingClientRect (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation>  getBoundingClientRectUnchecked ::                                (MonadIO m) => Range -> m ClientRect getBoundingClientRectUnchecked self@@ -327,6 +386,16 @@       (void (js_createContextualFragment (self) (toJSString html)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> +createContextualFragmentUnsafe ::+                               (MonadIO m, ToJSString html, HasCallStack) =>+                                 Range -> html -> m DocumentFragment+createContextualFragmentUnsafe self html+  = liftIO+      ((nullableToMaybe <$>+          (js_createContextualFragment (self) (toJSString html)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation>  createContextualFragmentUnchecked ::                                   (MonadIO m, ToJSString html) =>                                     Range -> html -> m DocumentFragment@@ -441,6 +510,14 @@   = liftIO (nullableToMaybe <$> (js_getStartContainer (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> +getStartContainerUnsafe ::+                        (MonadIO m, HasCallStack) => Range -> m Node+getStartContainerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStartContainer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation>  getStartContainerUnchecked :: (MonadIO m) => Range -> m Node getStartContainerUnchecked self   = liftIO@@ -462,6 +539,14 @@   = liftIO (nullableToMaybe <$> (js_getEndContainer (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> +getEndContainerUnsafe ::+                      (MonadIO m, HasCallStack) => Range -> m Node+getEndContainerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEndContainer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation>  getEndContainerUnchecked :: (MonadIO m) => Range -> m Node getEndContainerUnchecked self   = liftIO@@ -490,6 +575,14 @@ getCommonAncestorContainer self   = liftIO       (nullableToMaybe <$> (js_getCommonAncestorContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> +getCommonAncestorContainerUnsafe ::+                                 (MonadIO m, HasCallStack) => Range -> m Node+getCommonAncestorContainerUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCommonAncestorContainer (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation>  getCommonAncestorContainerUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.ReadableStream        (js_newReadableStream, newReadableStream, js_read, read, read_,-        readUnchecked, js_cancel, cancel, cancel_, cancelUnchecked,-        js_pipeTo, pipeTo, pipeTo_, pipeToUnchecked, js_pipeThrough,-        pipeThrough, pipeThrough_, pipeThroughUnchecked, js_getState,-        getState, js_getClosed, getClosed, getClosedUnchecked, js_getReady,-        getReady, getReadyUnchecked, ReadableStream, castToReadableStream,-        gTypeReadableStream)+        readUnsafe, readUnchecked, js_cancel, cancel, cancel_,+        cancelUnsafe, cancelUnchecked, js_pipeTo, pipeTo, pipeTo_,+        pipeToUnsafe, pipeToUnchecked, js_pipeThrough, pipeThrough,+        pipeThrough_, pipeThroughUnsafe, pipeThroughUnchecked, js_getState,+        getState, js_getClosed, getClosed, getClosedUnsafe,+        getClosedUnchecked, js_getReady, getReady, getReadyUnsafe,+        getReadyUnchecked, ReadableStream(..), gTypeReadableStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "new window[\"ReadableStream\"]($1)" js_newReadableStream ::@@ -46,6 +63,14 @@ read_ self = liftIO (void (js_read (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> +readUnsafe ::+           (MonadIO m, HasCallStack) => ReadableStream -> m GObject+readUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_read (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation>  readUnchecked :: (MonadIO m) => ReadableStream -> m GObject readUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_read (self)))@@ -68,6 +93,15 @@   = liftIO (void (js_cancel (self) (toJSString reason)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> +cancelUnsafe ::+             (MonadIO m, ToJSString reason, HasCallStack) =>+               ReadableStream -> reason -> m Promise+cancelUnsafe self reason+  = liftIO+      ((nullableToMaybe <$> (js_cancel (self) (toJSString reason))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation>  cancelUnchecked ::                 (MonadIO m, ToJSString reason) =>                   ReadableStream -> reason -> m Promise@@ -92,6 +126,15 @@   = liftIO (void (js_pipeTo (self) streams options))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> +pipeToUnsafe ::+             (MonadIO m, HasCallStack) =>+               ReadableStream -> JSVal -> JSVal -> m Promise+pipeToUnsafe self streams options+  = liftIO+      ((nullableToMaybe <$> (js_pipeTo (self) streams options)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation>  pipeToUnchecked ::                 (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m Promise pipeToUnchecked self streams options@@ -116,6 +159,15 @@   = liftIO (void (js_pipeThrough (self) dest options))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> +pipeThroughUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    ReadableStream -> JSVal -> JSVal -> m GObject+pipeThroughUnsafe self dest options+  = liftIO+      ((nullableToMaybe <$> (js_pipeThrough (self) dest options)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation>  pipeThroughUnchecked ::                      (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m GObject pipeThroughUnchecked self dest options@@ -140,6 +192,14 @@ getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> +getClosedUnsafe ::+                (MonadIO m, HasCallStack) => ReadableStream -> m Promise+getClosedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClosed (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation>  getClosedUnchecked :: (MonadIO m) => ReadableStream -> m Promise getClosedUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getClosed (self)))@@ -150,6 +210,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation>  getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise) getReady self = liftIO (nullableToMaybe <$> (js_getReady (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> +getReadyUnsafe ::+               (MonadIO m, HasCallStack) => ReadableStream -> m Promise+getReadyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getReady (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation>  getReadyUnchecked :: (MonadIO m) => ReadableStream -> m Promise
src/GHCJS/DOM/JSFFI/Generated/Rect.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Rect-       (js_getTop, getTop, getTopUnchecked, js_getRight, getRight,-        getRightUnchecked, js_getBottom, getBottom, getBottomUnchecked,-        js_getLeft, getLeft, getLeftUnchecked, Rect, castToRect, gTypeRect)+       (js_getTop, getTop, getTopUnsafe, getTopUnchecked, js_getRight,+        getRight, getRightUnsafe, getRightUnchecked, js_getBottom,+        getBottom, getBottomUnsafe, getBottomUnchecked, js_getLeft,+        getLeft, getLeftUnsafe, getLeftUnchecked, Rect(..), gTypeRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"top\"]" js_getTop ::         Rect -> IO (Nullable CSSPrimitiveValue)@@ -29,6 +46,14 @@ getTop self = liftIO (nullableToMaybe <$> (js_getTop (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> +getTopUnsafe ::+             (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue+getTopUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTop (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation>  getTopUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getTopUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getTop (self)))@@ -41,6 +66,14 @@ getRight self = liftIO (nullableToMaybe <$> (js_getRight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> +getRightUnsafe ::+               (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue+getRightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation>  getRightUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getRightUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getRight (self)))@@ -53,6 +86,14 @@ getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> +getBottomUnsafe ::+                (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue+getBottomUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBottom (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation>  getBottomUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue getBottomUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getBottom (self)))@@ -63,6 +104,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation>  getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> +getLeftUnsafe ::+              (MonadIO m, HasCallStack) => Rect -> m CSSPrimitiveValue+getLeftUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLeft (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation>  getLeftUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue
src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.RequestAnimationFrameCallback        (newRequestAnimationFrameCallback,         newRequestAnimationFrameCallbackSync,@@ -6,6 +11,7 @@         RequestAnimationFrameCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation>  newRequestAnimationFrameCallback ::
src/GHCJS/DOM/JSFFI/Generated/SQLError.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLError        (pattern UNKNOWN_ERR, pattern DATABASE_ERR, pattern VERSION_ERR,         pattern TOO_LARGE_ERR, pattern QUOTA_ERR, pattern SYNTAX_ERR,         pattern CONSTRAINT_ERR, pattern TIMEOUT_ERR, js_getCode, getCode,-        js_getMessage, getMessage, SQLError, castToSQLError, gTypeSQLError)+        js_getMessage, getMessage, SQLError(..), gTypeSQLError)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern UNKNOWN_ERR = 0 pattern DATABASE_ERR = 1 pattern VERSION_ERR = 2
src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLResultSet-       (js_getRows, getRows, getRowsUnchecked, js_getInsertId,-        getInsertId, js_getRowsAffected, getRowsAffected, SQLResultSet,-        castToSQLResultSet, gTypeSQLResultSet)+       (js_getRows, getRows, getRowsUnsafe, getRowsUnchecked,+        js_getInsertId, getInsertId, js_getRowsAffected, getRowsAffected,+        SQLResultSet(..), gTypeSQLResultSet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::         SQLResultSet -> IO (Nullable SQLResultSetRowList)@@ -28,6 +44,14 @@ getRows ::         (MonadIO m) => SQLResultSet -> m (Maybe SQLResultSetRowList) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> +getRowsUnsafe ::+              (MonadIO m, HasCallStack) => SQLResultSet -> m SQLResultSetRowList+getRowsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRows (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation>  getRowsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList        (js_item, item, item_, js_getLength, getLength,-        SQLResultSetRowList, castToSQLResultSetRowList,-        gTypeSQLResultSetRowList)+        SQLResultSetRowList(..), gTypeSQLResultSetRowList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         SQLResultSetRowList -> Word -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLStatementCallback        (newSQLStatementCallback, newSQLStatementCallbackSync,         newSQLStatementCallbackAsync, SQLStatementCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallback ::
src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLStatementErrorCallback        (newSQLStatementErrorCallback, newSQLStatementErrorCallbackSync,         newSQLStatementErrorCallbackAsync, SQLStatementErrorCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallback ::
src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLTransaction-       (js_executeSql, executeSql, SQLTransaction, castToSQLTransaction,+       (js_executeSql, executeSql, SQLTransaction(..),         gTypeSQLTransaction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql ::
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLTransactionCallback        (newSQLTransactionCallback, newSQLTransactionCallbackSync,         newSQLTransactionCallbackAsync, SQLTransactionCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallback ::
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SQLTransactionErrorCallback        (newSQLTransactionErrorCallback,         newSQLTransactionErrorCallbackSync,         newSQLTransactionErrorCallbackAsync, SQLTransactionErrorCallback)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallback ::
src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAElement-       (js_getTarget, getTarget, getTargetUnchecked, SVGAElement,-        castToSVGAElement, gTypeSVGAElement)+       (js_getTarget, getTarget, getTargetUnsafe, getTargetUnchecked,+        SVGAElement(..), gTypeSVGAElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::         SVGAElement -> IO (Nullable SVGAnimatedString)@@ -27,6 +43,14 @@ getTarget ::           (MonadIO m) => SVGAElement -> m (Maybe SVGAnimatedString) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> +getTargetUnsafe ::+                (MonadIO m, HasCallStack) => SVGAElement -> m SVGAnimatedString+getTargetUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTarget (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation>  getTargetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAltGlyphElement        (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef,         js_setFormat, setFormat, js_getFormat, getFormat,-        SVGAltGlyphElement, castToSVGAltGlyphElement,-        gTypeSVGAltGlyphElement)+        SVGAltGlyphElement(..), gTypeSVGAltGlyphElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"         js_setGlyphRef :: SVGAltGlyphElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAngle        (js_newValueSpecifiedUnits, newValueSpecifiedUnits,         js_convertToSpecifiedUnits, convertToSpecifiedUnits,@@ -9,10 +14,11 @@         js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,         js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,         js_setValueAsString, setValueAsString, js_getValueAsString,-        getValueAsString, getValueAsStringUnchecked, SVGAngle,-        castToSVGAngle, gTypeSVGAngle)+        getValueAsString, getValueAsStringUnsafe,+        getValueAsStringUnchecked, SVGAngle(..), gTypeSVGAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits@@ -110,6 +126,15 @@                  (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result) getValueAsString self   = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +getValueAsStringUnsafe ::+                       (MonadIO m, HasCallStack, FromJSString result) =>+                         SVGAngle -> m result+getValueAsStringUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValueAsString (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation>  getValueAsStringUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedAngle,-        castToSVGAnimatedAngle, gTypeSVGAnimatedAngle)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedAngle(..), gTypeSVGAnimatedAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedAngle -> IO (Nullable SVGAngle)@@ -30,6 +46,14 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedAngle -> m SVGAngle+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) => SVGAnimatedAngle -> m SVGAngle getBaseValUnchecked self@@ -42,6 +66,14 @@ getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedAngle -> m SVGAngle+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedBoolean        (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,-        js_getAnimVal, getAnimVal, SVGAnimatedBoolean,-        castToSVGAnimatedBoolean, gTypeSVGAnimatedBoolean)+        js_getAnimVal, getAnimVal, SVGAnimatedBoolean(..),+        gTypeSVGAnimatedBoolean)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"         js_setBaseVal :: SVGAnimatedBoolean -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedEnumeration        (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,-        js_getAnimVal, getAnimVal, SVGAnimatedEnumeration,-        castToSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration)+        js_getAnimVal, getAnimVal, SVGAnimatedEnumeration(..),+        gTypeSVGAnimatedEnumeration)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"         js_setBaseVal :: SVGAnimatedEnumeration -> Word -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedInteger        (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,-        js_getAnimVal, getAnimVal, SVGAnimatedInteger,-        castToSVGAnimatedInteger, gTypeSVGAnimatedInteger)+        js_getAnimVal, getAnimVal, SVGAnimatedInteger(..),+        gTypeSVGAnimatedInteger)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"         js_setBaseVal :: SVGAnimatedInteger -> Int -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedLength,-        castToSVGAnimatedLength, gTypeSVGAnimatedLength)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedLength(..), gTypeSVGAnimatedLength)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedLength -> IO (Nullable SVGLength)@@ -31,6 +47,14 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedLength -> m SVGLength+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) => SVGAnimatedLength -> m SVGLength getBaseValUnchecked self@@ -44,6 +68,14 @@            (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedLength -> m SVGLength+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedLengthList,-        castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedLengthList(..), gTypeSVGAnimatedLengthList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedLengthList -> IO (Nullable SVGLengthList)@@ -31,6 +47,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedLengthList -> m SVGLengthList+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList getBaseValUnchecked self@@ -44,6 +69,15 @@            (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedLengthList -> m SVGLengthList+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumber        (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,-        js_getAnimVal, getAnimVal, SVGAnimatedNumber,-        castToSVGAnimatedNumber, gTypeSVGAnimatedNumber)+        js_getAnimVal, getAnimVal, SVGAnimatedNumber(..),+        gTypeSVGAnimatedNumber)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"         js_setBaseVal :: SVGAnimatedNumber -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedNumberList,-        castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedNumberList(..), gTypeSVGAnimatedNumberList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedNumberList -> IO (Nullable SVGNumberList)@@ -31,6 +47,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedNumberList -> m SVGNumberList+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList getBaseValUnchecked self@@ -44,6 +69,15 @@            (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedNumberList -> m SVGNumberList+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedPreserveAspectRatio,-        castToSVGAnimatedPreserveAspectRatio,+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedPreserveAspectRatio(..),         gTypeSVGAnimatedPreserveAspectRatio)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedPreserveAspectRatio ->@@ -34,6 +50,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) =>                       SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio@@ -50,6 +75,15 @@              SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedRect,-        castToSVGAnimatedRect, gTypeSVGAnimatedRect)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedRect(..), gTypeSVGAnimatedRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedRect -> IO (Nullable SVGRect)@@ -30,6 +46,14 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedRect -> m SVGRect+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation>  getBaseValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect getBaseValUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))@@ -41,6 +65,14 @@ getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) => SVGAnimatedRect -> m SVGRect+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation>  getAnimValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedString        (js_setBaseVal, setBaseVal, js_getBaseVal, getBaseVal,-        js_getAnimVal, getAnimVal, SVGAnimatedString,-        castToSVGAnimatedString, gTypeSVGAnimatedString)+        js_getAnimVal, getAnimVal, SVGAnimatedString(..),+        gTypeSVGAnimatedString)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"         js_setBaseVal :: SVGAnimatedString -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList-       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,-        getAnimVal, getAnimValUnchecked, SVGAnimatedTransformList,-        castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList)+       (js_getBaseVal, getBaseVal, getBaseValUnsafe, getBaseValUnchecked,+        js_getAnimVal, getAnimVal, getAnimValUnsafe, getAnimValUnchecked,+        SVGAnimatedTransformList(..), gTypeSVGAnimatedTransformList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::         SVGAnimatedTransformList -> IO (Nullable SVGTransformList)@@ -32,6 +48,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> +getBaseValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedTransformList -> m SVGTransformList+getBaseValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation>  getBaseValUnchecked ::                     (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList getBaseValUnchecked self@@ -46,6 +71,15 @@              SVGAnimatedTransformList -> m (Maybe SVGTransformList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> +getAnimValUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGAnimatedTransformList -> m SVGTransformList+getAnimValUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimVal (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation>  getAnimValUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs view
@@ -1,15 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement        (js_getStartTime, getStartTime, getStartTime_, js_getCurrentTime,         getCurrentTime, getCurrentTime_, js_getSimpleDuration,         getSimpleDuration, getSimpleDuration_, js_beginElement,         beginElement, js_beginElementAt, beginElementAt, js_endElement,         endElement, js_endElementAt, endElementAt, js_getTargetElement,-        getTargetElement, getTargetElementUnchecked, SVGAnimationElement,-        castToSVGAnimationElement, gTypeSVGAnimationElement,-        IsSVGAnimationElement, toSVGAnimationElement)+        getTargetElement, getTargetElementUnsafe,+        getTargetElementUnchecked, SVGAnimationElement(..),+        gTypeSVGAnimationElement, IsSVGAnimationElement,+        toSVGAnimationElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getStartTime\"]()"         js_getStartTime :: SVGAnimationElement -> IO Float@@ -119,6 +136,16 @@   = liftIO       (nullableToMaybe <$>          (js_getTargetElement (toSVGAnimationElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> +getTargetElementUnsafe ::+                       (MonadIO m, IsSVGAnimationElement self, HasCallStack) =>+                         self -> m SVGElement+getTargetElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getTargetElement (toSVGAnimationElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation>  getTargetElementUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGCircleElement-       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,-        js_getR, getR, getRUnchecked, SVGCircleElement,-        castToSVGCircleElement, gTypeSVGCircleElement)+       (js_getCx, getCx, getCxUnsafe, getCxUnchecked, js_getCy, getCy,+        getCyUnsafe, getCyUnchecked, js_getR, getR, getRUnsafe,+        getRUnchecked, SVGCircleElement(..), gTypeSVGCircleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::         SVGCircleElement -> IO (Nullable SVGAnimatedLength)@@ -30,6 +46,15 @@ getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> +getCxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGCircleElement -> m SVGAnimatedLength+getCxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation>  getCxUnchecked ::                (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength getCxUnchecked self@@ -44,6 +69,15 @@ getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> +getCyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGCircleElement -> m SVGAnimatedLength+getCyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation>  getCyUnchecked ::                (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength getCyUnchecked self@@ -56,6 +90,15 @@ getR ::      (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getR self = liftIO (nullableToMaybe <$> (js_getR (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> +getRUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGCircleElement -> m SVGAnimatedLength+getRUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getR (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation>  getRUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement-       (js_getClipPathUnits, getClipPathUnits, getClipPathUnitsUnchecked,-        SVGClipPathElement, castToSVGClipPathElement,+       (js_getClipPathUnits, getClipPathUnits, getClipPathUnitsUnsafe,+        getClipPathUnitsUnchecked, SVGClipPathElement(..),         gTypeSVGClipPathElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clipPathUnits\"]"         js_getClipPathUnits ::@@ -31,6 +47,15 @@                    SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration) getClipPathUnits self   = liftIO (nullableToMaybe <$> (js_getClipPathUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> +getClipPathUnitsUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGClipPathElement -> m SVGAnimatedEnumeration+getClipPathUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClipPathUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation>  getClipPathUnitsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGColor        (js_setRGBColor, setRGBColor, js_setRGBColorICCColor,         setRGBColorICCColor, js_setColor, setColor,         pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR,         pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR,         pattern SVG_COLORTYPE_CURRENTCOLOR, js_getColorType, getColorType,-        js_getRgbColor, getRgbColor, getRgbColorUnchecked, SVGColor,-        castToSVGColor, gTypeSVGColor, IsSVGColor, toSVGColor)+        js_getRgbColor, getRgbColor, getRgbColorUnsafe,+        getRgbColorUnchecked, SVGColor(..), gTypeSVGColor, IsSVGColor,+        toSVGColor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setRGBColor\"]($2)"         js_setRGBColor :: SVGColor -> JSString -> IO ()@@ -81,6 +98,14 @@             (MonadIO m, IsSVGColor self) => self -> m (Maybe RGBColor) getRgbColor self   = liftIO (nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> +getRgbColorUnsafe ::+                  (MonadIO m, IsSVGColor self, HasCallStack) => self -> m RGBColor+getRgbColorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRgbColor (toSVGColor self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation>  getRgbColorUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGComponentTransferFunctionElement        (pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN,         pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY,@@ -6,18 +11,21 @@         pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,         pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,         pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, js_getType, getType,-        getTypeUnchecked, js_getTableValues, getTableValues,-        getTableValuesUnchecked, js_getSlope, getSlope, getSlopeUnchecked,-        js_getIntercept, getIntercept, getInterceptUnchecked,-        js_getAmplitude, getAmplitude, getAmplitudeUnchecked,-        js_getExponent, getExponent, getExponentUnchecked, js_getOffset,-        getOffset, getOffsetUnchecked, SVGComponentTransferFunctionElement,-        castToSVGComponentTransferFunctionElement,+        getTypeUnsafe, getTypeUnchecked, js_getTableValues, getTableValues,+        getTableValuesUnsafe, getTableValuesUnchecked, js_getSlope,+        getSlope, getSlopeUnsafe, getSlopeUnchecked, js_getIntercept,+        getIntercept, getInterceptUnsafe, getInterceptUnchecked,+        js_getAmplitude, getAmplitude, getAmplitudeUnsafe,+        getAmplitudeUnchecked, js_getExponent, getExponent,+        getExponentUnsafe, getExponentUnchecked, js_getOffset, getOffset,+        getOffsetUnsafe, getOffsetUnchecked,+        SVGComponentTransferFunctionElement(..),         gTypeSVGComponentTransferFunctionElement,         IsSVGComponentTransferFunctionElement,         toSVGComponentTransferFunctionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -33,6 +41,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_FECOMPONENTTRANSFER_TYPE_UNKNOWN = 0 pattern SVG_FECOMPONENTTRANSFER_TYPE_IDENTITY = 1 pattern SVG_FECOMPONENTTRANSFER_TYPE_TABLE = 2@@ -54,6 +72,17 @@          (js_getType (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> +getTypeUnsafe ::+              (MonadIO m, IsSVGComponentTransferFunctionElement self,+               HasCallStack) =>+                self -> m SVGAnimatedEnumeration+getTypeUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getType (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation>  getTypeUnchecked ::                  (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                    self -> m SVGAnimatedEnumeration@@ -77,6 +106,17 @@          (js_getTableValues (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> +getTableValuesUnsafe ::+                     (MonadIO m, IsSVGComponentTransferFunctionElement self,+                      HasCallStack) =>+                       self -> m SVGAnimatedNumberList+getTableValuesUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getTableValues (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation>  getTableValuesUnchecked ::                         (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                           self -> m SVGAnimatedNumberList@@ -99,6 +139,17 @@          (js_getSlope (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> +getSlopeUnsafe ::+               (MonadIO m, IsSVGComponentTransferFunctionElement self,+                HasCallStack) =>+                 self -> m SVGAnimatedNumber+getSlopeUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getSlope (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation>  getSlopeUnchecked ::                   (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                     self -> m SVGAnimatedNumber@@ -122,6 +173,17 @@          (js_getIntercept (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> +getInterceptUnsafe ::+                   (MonadIO m, IsSVGComponentTransferFunctionElement self,+                    HasCallStack) =>+                     self -> m SVGAnimatedNumber+getInterceptUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getIntercept (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation>  getInterceptUnchecked ::                       (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                         self -> m SVGAnimatedNumber@@ -145,6 +207,17 @@          (js_getAmplitude (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> +getAmplitudeUnsafe ::+                   (MonadIO m, IsSVGComponentTransferFunctionElement self,+                    HasCallStack) =>+                     self -> m SVGAnimatedNumber+getAmplitudeUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getAmplitude (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation>  getAmplitudeUnchecked ::                       (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                         self -> m SVGAnimatedNumber@@ -168,6 +241,17 @@          (js_getExponent (toSVGComponentTransferFunctionElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> +getExponentUnsafe ::+                  (MonadIO m, IsSVGComponentTransferFunctionElement self,+                   HasCallStack) =>+                    self -> m SVGAnimatedNumber+getExponentUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getExponent (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation>  getExponentUnchecked ::                      (MonadIO m, IsSVGComponentTransferFunctionElement self) =>                        self -> m SVGAnimatedNumber@@ -188,6 +272,17 @@   = liftIO       (nullableToMaybe <$>          (js_getOffset (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> +getOffsetUnsafe ::+                (MonadIO m, IsSVGComponentTransferFunctionElement self,+                 HasCallStack) =>+                  self -> m SVGAnimatedNumber+getOffsetUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getOffset (toSVGComponentTransferFunctionElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation>  getOffsetUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs view
@@ -1,9 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGCursorElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        SVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement)+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, SVGCursorElement(..),+        gTypeSVGCursorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGCursorElement -> IO (Nullable SVGAnimatedLength)@@ -29,6 +46,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGCursorElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength getXUnchecked self@@ -41,6 +67,15 @@ getY ::      (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGCursorElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation>  getYUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGDocument-       (js_createEvent, createEvent, createEvent_, createEventUnchecked,-        js_getRootElement, getRootElement, getRootElementUnchecked,-        SVGDocument, castToSVGDocument, gTypeSVGDocument)+       (js_createEvent, createEvent, createEvent_, createEventUnsafe,+        createEventUnchecked, js_getRootElement, getRootElement,+        getRootElementUnsafe, getRootElementUnchecked, SVGDocument(..),+        gTypeSVGDocument)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"createEvent\"]($2)"         js_createEvent :: SVGDocument -> JSString -> IO (Nullable Event)@@ -41,6 +58,16 @@   = liftIO (void (js_createEvent (self) (toJSString eventType)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> +createEventUnsafe ::+                  (MonadIO m, ToJSString eventType, HasCallStack) =>+                    SVGDocument -> eventType -> m Event+createEventUnsafe self eventType+  = liftIO+      ((nullableToMaybe <$>+          (js_createEvent (self) (toJSString eventType)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation>  createEventUnchecked ::                      (MonadIO m, ToJSString eventType) =>                        SVGDocument -> eventType -> m Event@@ -57,6 +84,14 @@                (MonadIO m) => SVGDocument -> m (Maybe SVGSVGElement) getRootElement self   = liftIO (nullableToMaybe <$> (js_getRootElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> +getRootElementUnsafe ::+                     (MonadIO m, HasCallStack) => SVGDocument -> m SVGSVGElement+getRootElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRootElement (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation>  getRootElementUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs view
@@ -1,19 +1,28 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGElement        (js_getPresentationAttribute, getPresentationAttribute,-        getPresentationAttribute_, getPresentationAttributeUnchecked,-        js_setXmlbase, setXmlbase, js_getXmlbase, getXmlbase,-        getXmlbaseUnchecked, js_getOwnerSVGElement, getOwnerSVGElement,-        getOwnerSVGElementUnchecked, js_getViewportElement,-        getViewportElement, getViewportElementUnchecked, js_setXmllang,-        setXmllang, js_getXmllang, getXmllang, js_setXmlspace, setXmlspace,-        js_getXmlspace, getXmlspace, js_getClassName, getClassName,-        getClassNameUnchecked, js_getStyle, getStyle, getStyleUnchecked,-        js_setTabIndex, setTabIndex, js_getTabIndex, getTabIndex,-        SVGElement, castToSVGElement, gTypeSVGElement, IsSVGElement,+        getPresentationAttribute_, getPresentationAttributeUnsafe,+        getPresentationAttributeUnchecked, js_setXmlbase, setXmlbase,+        js_getXmlbase, getXmlbase, getXmlbaseUnsafe, getXmlbaseUnchecked,+        js_getOwnerSVGElement, getOwnerSVGElement,+        getOwnerSVGElementUnsafe, getOwnerSVGElementUnchecked,+        js_getViewportElement, getViewportElement,+        getViewportElementUnsafe, getViewportElementUnchecked,+        js_setXmllang, setXmllang, js_getXmllang, getXmllang,+        js_setXmlspace, setXmlspace, js_getXmlspace, getXmlspace,+        js_getClassName, getClassName, getClassNameUnsafe,+        getClassNameUnchecked, js_getStyle, getStyle, getStyleUnsafe,+        getStyleUnchecked, js_setTabIndex, setTabIndex, js_getTabIndex,+        getTabIndex, SVGElement(..), gTypeSVGElement, IsSVGElement,         toSVGElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -29,6 +38,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute@@ -55,6 +74,17 @@             (toJSString name)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> +getPresentationAttributeUnsafe ::+                               (MonadIO m, IsSVGElement self, ToJSString name, HasCallStack) =>+                                 self -> name -> m CSSValue+getPresentationAttributeUnsafe self name+  = liftIO+      ((nullableToMaybe <$>+          (js_getPresentationAttribute (toSVGElement self)+             (toJSString name)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation>  getPresentationAttributeUnchecked ::                                   (MonadIO m, IsSVGElement self, ToJSString name) =>                                     self -> name -> m CSSValue@@ -86,6 +116,16 @@       (fromMaybeJSString <$> (js_getXmlbase (toSVGElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +getXmlbaseUnsafe ::+                 (MonadIO m, IsSVGElement self, HasCallStack,+                  FromJSString result) =>+                   self -> m result+getXmlbaseUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getXmlbase (toSVGElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation>  getXmlbaseUnchecked ::                     (MonadIO m, IsSVGElement self, FromJSString result) =>                       self -> m result@@ -105,6 +145,15 @@       (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> +getOwnerSVGElementUnsafe ::+                         (MonadIO m, IsSVGElement self, HasCallStack) =>+                           self -> m SVGSVGElement+getOwnerSVGElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation>  getOwnerSVGElementUnchecked ::                             (MonadIO m, IsSVGElement self) => self -> m SVGSVGElement getOwnerSVGElementUnchecked self@@ -123,6 +172,15 @@       (nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> +getViewportElementUnsafe ::+                         (MonadIO m, IsSVGElement self, HasCallStack) =>+                           self -> m SVGElement+getViewportElementUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation>  getViewportElementUnchecked ::                             (MonadIO m, IsSVGElement self) => self -> m SVGElement getViewportElementUnchecked self@@ -182,6 +240,15 @@       (nullableToMaybe <$> (js_getClassName (toSVGElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> +getClassNameUnsafe ::+                   (MonadIO m, IsSVGElement self, HasCallStack) =>+                     self -> m SVGAnimatedString+getClassNameUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getClassName (toSVGElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation>  getClassNameUnchecked ::                       (MonadIO m, IsSVGElement self) => self -> m SVGAnimatedString getClassNameUnchecked self@@ -198,6 +265,15 @@            self -> m (Maybe CSSStyleDeclaration) getStyle self   = liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> +getStyleUnsafe ::+               (MonadIO m, IsSVGElement self, HasCallStack) =>+                 self -> m CSSStyleDeclaration+getStyleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStyle (toSVGElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation>  getStyleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement-       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,-        js_getRx, getRx, getRxUnchecked, js_getRy, getRy, getRyUnchecked,-        SVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement)+       (js_getCx, getCx, getCxUnsafe, getCxUnchecked, js_getCy, getCy,+        getCyUnsafe, getCyUnchecked, js_getRx, getRx, getRxUnsafe,+        getRxUnchecked, js_getRy, getRy, getRyUnsafe, getRyUnchecked,+        SVGEllipseElement(..), gTypeSVGEllipseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::         SVGEllipseElement -> IO (Nullable SVGAnimatedLength)@@ -30,6 +47,15 @@ getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> +getCxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGEllipseElement -> m SVGAnimatedLength+getCxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation>  getCxUnchecked ::                (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength getCxUnchecked self@@ -44,6 +70,15 @@ getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> +getCyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGEllipseElement -> m SVGAnimatedLength+getCyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation>  getCyUnchecked ::                (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength getCyUnchecked self@@ -58,6 +93,15 @@ getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> +getRxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGEllipseElement -> m SVGAnimatedLength+getRxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation>  getRxUnchecked ::                (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength getRxUnchecked self@@ -70,6 +114,15 @@ getRy ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> +getRyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGEllipseElement -> m SVGAnimatedLength+getRyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation>  getRyUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs view
@@ -1,11 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired        (js_getExternalResourcesRequired, getExternalResourcesRequired,+        getExternalResourcesRequiredUnsafe,         getExternalResourcesRequiredUnchecked,-        SVGExternalResourcesRequired, castToSVGExternalResourcesRequired,+        SVGExternalResourcesRequired(..),         gTypeSVGExternalResourcesRequired)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"externalResourcesRequired\"]" js_getExternalResourcesRequired@@ -33,6 +50,15 @@ getExternalResourcesRequired self   = liftIO       (nullableToMaybe <$> (js_getExternalResourcesRequired (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation> +getExternalResourcesRequiredUnsafe ::+                                   (MonadIO m, HasCallStack) =>+                                     SVGExternalResourcesRequired -> m SVGAnimatedBoolean+getExternalResourcesRequiredUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getExternalResourcesRequired (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation>  getExternalResourcesRequiredUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEBlendElement        (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL,         pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN,         pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN,-        js_getIn1, getIn1, getIn1Unchecked, js_getIn2, getIn2,-        getIn2Unchecked, js_getMode, getMode, getModeUnchecked,-        SVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement)+        js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked, js_getIn2,+        getIn2, getIn2Unsafe, getIn2Unchecked, js_getMode, getMode,+        getModeUnsafe, getModeUnchecked, SVGFEBlendElement(..),+        gTypeSVGFEBlendElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_FEBLEND_MODE_UNKNOWN = 0 pattern SVG_FEBLEND_MODE_NORMAL = 1 pattern SVG_FEBLEND_MODE_MULTIPLY = 2@@ -39,6 +56,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEBlendElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedString getIn1Unchecked self@@ -53,6 +79,15 @@ getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation> +getIn2Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEBlendElement -> m SVGAnimatedString+getIn2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation>  getIn2Unchecked ::                 (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedString getIn2Unchecked self@@ -66,6 +101,15 @@         (MonadIO m) =>           SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration) getMode self = liftIO (nullableToMaybe <$> (js_getMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation> +getModeUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGFEBlendElement -> m SVGAnimatedEnumeration+getModeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation>  getModeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs view
@@ -1,16 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEColorMatrixElement        (pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN,         pattern SVG_FECOLORMATRIX_TYPE_MATRIX,         pattern SVG_FECOLORMATRIX_TYPE_SATURATE,         pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE,         pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, js_getIn1, getIn1,-        getIn1Unchecked, js_getType, getType, getTypeUnchecked,-        js_getValues, getValues, getValuesUnchecked,-        SVGFEColorMatrixElement, castToSVGFEColorMatrixElement,+        getIn1Unsafe, getIn1Unchecked, js_getType, getType, getTypeUnsafe,+        getTypeUnchecked, js_getValues, getValues, getValuesUnsafe,+        getValuesUnchecked, SVGFEColorMatrixElement(..),         gTypeSVGFEColorMatrixElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_FECOLORMATRIX_TYPE_UNKNOWN = 0 pattern SVG_FECOLORMATRIX_TYPE_MATRIX = 1 pattern SVG_FECOLORMATRIX_TYPE_SATURATE = 2@@ -42,6 +58,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEColorMatrixElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedString getIn1Unchecked self@@ -57,6 +82,15 @@ getType self = liftIO (nullableToMaybe <$> (js_getType (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation> +getTypeUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGFEColorMatrixElement -> m SVGAnimatedEnumeration+getTypeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getType (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation>  getTypeUnchecked ::                  (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedEnumeration getTypeUnchecked self@@ -70,6 +104,15 @@           (MonadIO m) =>             SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList) getValues self = liftIO (nullableToMaybe <$> (js_getValues (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation> +getValuesUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFEColorMatrixElement -> m SVGAnimatedNumberList+getValuesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getValues (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation>  getValuesUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement-       (js_getIn1, getIn1, getIn1Unchecked, SVGFEComponentTransferElement,-        castToSVGFEComponentTransferElement,+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked,+        SVGFEComponentTransferElement(..),         gTypeSVGFEComponentTransferElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFEComponentTransferElement -> IO (Nullable SVGAnimatedString)@@ -29,6 +45,15 @@        (MonadIO m) =>          SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEComponentTransferElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation>  getIn1Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFECompositeElement        (pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN,         pattern SVG_FECOMPOSITE_OPERATOR_OVER,@@ -7,14 +12,16 @@         pattern SVG_FECOMPOSITE_OPERATOR_ATOP,         pattern SVG_FECOMPOSITE_OPERATOR_XOR,         pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, js_getIn1, getIn1,-        getIn1Unchecked, js_getIn2, getIn2, getIn2Unchecked,-        js_getOperator, getOperator, getOperatorUnchecked, js_getK1, getK1,-        getK1Unchecked, js_getK2, getK2, getK2Unchecked, js_getK3, getK3,-        getK3Unchecked, js_getK4, getK4, getK4Unchecked,-        SVGFECompositeElement, castToSVGFECompositeElement,+        getIn1Unsafe, getIn1Unchecked, js_getIn2, getIn2, getIn2Unsafe,+        getIn2Unchecked, js_getOperator, getOperator, getOperatorUnsafe,+        getOperatorUnchecked, js_getK1, getK1, getK1Unsafe, getK1Unchecked,+        js_getK2, getK2, getK2Unsafe, getK2Unchecked, js_getK3, getK3,+        getK3Unsafe, getK3Unchecked, js_getK4, getK4, getK4Unsafe,+        getK4Unchecked, SVGFECompositeElement(..),         gTypeSVGFECompositeElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +37,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_FECOMPOSITE_OPERATOR_UNKNOWN = 0 pattern SVG_FECOMPOSITE_OPERATOR_OVER = 1 pattern SVG_FECOMPOSITE_OPERATOR_IN = 2@@ -47,6 +64,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFECompositeElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedString getIn1Unchecked self@@ -61,6 +87,15 @@ getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation> +getIn2Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFECompositeElement -> m SVGAnimatedString+getIn2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation>  getIn2Unchecked ::                 (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedString getIn2Unchecked self@@ -77,6 +112,15 @@   = liftIO (nullableToMaybe <$> (js_getOperator (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation> +getOperatorUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGFECompositeElement -> m SVGAnimatedEnumeration+getOperatorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOperator (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation>  getOperatorUnchecked ::                      (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedEnumeration getOperatorUnchecked self@@ -91,6 +135,15 @@ getK1 self = liftIO (nullableToMaybe <$> (js_getK1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation> +getK1Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFECompositeElement -> m SVGAnimatedNumber+getK1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getK1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation>  getK1Unchecked ::                (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber getK1Unchecked self@@ -105,6 +158,15 @@ getK2 self = liftIO (nullableToMaybe <$> (js_getK2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation> +getK2Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFECompositeElement -> m SVGAnimatedNumber+getK2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getK2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation>  getK2Unchecked ::                (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber getK2Unchecked self@@ -119,6 +181,15 @@ getK3 self = liftIO (nullableToMaybe <$> (js_getK3 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation> +getK3Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFECompositeElement -> m SVGAnimatedNumber+getK3Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getK3 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation>  getK3Unchecked ::                (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber getK3Unchecked self@@ -131,6 +202,15 @@ getK4 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK4 self = liftIO (nullableToMaybe <$> (js_getK4 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation> +getK4Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFECompositeElement -> m SVGAnimatedNumber+getK4Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getK4 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation>  getK4Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs view
@@ -1,23 +1,32 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement        (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE,         pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, js_getIn1,-        getIn1, getIn1Unchecked, js_getOrderX, getOrderX,-        getOrderXUnchecked, js_getOrderY, getOrderY, getOrderYUnchecked,-        js_getKernelMatrix, getKernelMatrix, getKernelMatrixUnchecked,-        js_getDivisor, getDivisor, getDivisorUnchecked, js_getBias,-        getBias, getBiasUnchecked, js_getTargetX, getTargetX,-        getTargetXUnchecked, js_getTargetY, getTargetY,-        getTargetYUnchecked, js_getEdgeMode, getEdgeMode,+        getIn1, getIn1Unsafe, getIn1Unchecked, js_getOrderX, getOrderX,+        getOrderXUnsafe, getOrderXUnchecked, js_getOrderY, getOrderY,+        getOrderYUnsafe, getOrderYUnchecked, js_getKernelMatrix,+        getKernelMatrix, getKernelMatrixUnsafe, getKernelMatrixUnchecked,+        js_getDivisor, getDivisor, getDivisorUnsafe, getDivisorUnchecked,+        js_getBias, getBias, getBiasUnsafe, getBiasUnchecked,+        js_getTargetX, getTargetX, getTargetXUnsafe, getTargetXUnchecked,+        js_getTargetY, getTargetY, getTargetYUnsafe, getTargetYUnchecked,+        js_getEdgeMode, getEdgeMode, getEdgeModeUnsafe,         getEdgeModeUnchecked, js_getKernelUnitLengthX,-        getKernelUnitLengthX, getKernelUnitLengthXUnchecked,-        js_getKernelUnitLengthY, getKernelUnitLengthY,+        getKernelUnitLengthX, getKernelUnitLengthXUnsafe,+        getKernelUnitLengthXUnchecked, js_getKernelUnitLengthY,+        getKernelUnitLengthY, getKernelUnitLengthYUnsafe,         getKernelUnitLengthYUnchecked, js_getPreserveAlpha,-        getPreserveAlpha, getPreserveAlphaUnchecked,-        SVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement,+        getPreserveAlpha, getPreserveAlphaUnsafe,+        getPreserveAlphaUnchecked, SVGFEConvolveMatrixElement(..),         gTypeSVGFEConvolveMatrixElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -33,6 +42,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_EDGEMODE_UNKNOWN = 0 pattern SVG_EDGEMODE_DUPLICATE = 1 pattern SVG_EDGEMODE_WRAP = 2@@ -48,6 +67,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEConvolveMatrixElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedString getIn1Unchecked self@@ -63,6 +91,15 @@ getOrderX self = liftIO (nullableToMaybe <$> (js_getOrderX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation> +getOrderXUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getOrderXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOrderX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation>  getOrderXUnchecked ::                    (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger getOrderXUnchecked self@@ -78,6 +115,15 @@ getOrderY self = liftIO (nullableToMaybe <$> (js_getOrderY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation> +getOrderYUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getOrderYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOrderY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation>  getOrderYUnchecked ::                    (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger getOrderYUnchecked self@@ -95,6 +141,15 @@   = liftIO (nullableToMaybe <$> (js_getKernelMatrix (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation> +getKernelMatrixUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGFEConvolveMatrixElement -> m SVGAnimatedNumberList+getKernelMatrixUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKernelMatrix (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation>  getKernelMatrixUnchecked ::                          (MonadIO m) =>                            SVGFEConvolveMatrixElement -> m SVGAnimatedNumberList@@ -113,6 +168,15 @@   = liftIO (nullableToMaybe <$> (js_getDivisor (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation> +getDivisorUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getDivisorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDivisor (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation>  getDivisorUnchecked ::                     (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber getDivisorUnchecked self@@ -128,6 +192,15 @@ getBias self = liftIO (nullableToMaybe <$> (js_getBias (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation> +getBiasUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getBiasUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBias (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation>  getBiasUnchecked ::                  (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber getBiasUnchecked self@@ -144,6 +217,15 @@   = liftIO (nullableToMaybe <$> (js_getTargetX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation> +getTargetXUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getTargetXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTargetX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation>  getTargetXUnchecked ::                     (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger getTargetXUnchecked self@@ -160,6 +242,15 @@   = liftIO (nullableToMaybe <$> (js_getTargetY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation> +getTargetYUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getTargetYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getTargetY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation>  getTargetYUnchecked ::                     (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger getTargetYUnchecked self@@ -177,6 +268,15 @@   = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation> +getEdgeModeUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGFEConvolveMatrixElement -> m SVGAnimatedEnumeration+getEdgeModeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEdgeMode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation>  getEdgeModeUnchecked ::                      (MonadIO m) =>                        SVGFEConvolveMatrixElement -> m SVGAnimatedEnumeration@@ -195,6 +295,15 @@   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation> +getKernelUnitLengthXUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getKernelUnitLengthXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKernelUnitLengthX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation>  getKernelUnitLengthXUnchecked ::                               (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber getKernelUnitLengthXUnchecked self@@ -213,6 +322,15 @@   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation> +getKernelUnitLengthYUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getKernelUnitLengthYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKernelUnitLengthY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation>  getKernelUnitLengthYUnchecked ::                               (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber getKernelUnitLengthYUnchecked self@@ -229,6 +347,15 @@                    SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean) getPreserveAlpha self   = liftIO (nullableToMaybe <$> (js_getPreserveAlpha (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation> +getPreserveAlphaUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGFEConvolveMatrixElement -> m SVGAnimatedBoolean+getPreserveAlphaUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreserveAlpha (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation>  getPreserveAlphaUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs view
@@ -1,15 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement-       (js_getIn1, getIn1, getIn1Unchecked, js_getSurfaceScale,-        getSurfaceScale, getSurfaceScaleUnchecked, js_getDiffuseConstant,-        getDiffuseConstant, getDiffuseConstantUnchecked,-        js_getKernelUnitLengthX, getKernelUnitLengthX,+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked,+        js_getSurfaceScale, getSurfaceScale, getSurfaceScaleUnsafe,+        getSurfaceScaleUnchecked, js_getDiffuseConstant,+        getDiffuseConstant, getDiffuseConstantUnsafe,+        getDiffuseConstantUnchecked, js_getKernelUnitLengthX,+        getKernelUnitLengthX, getKernelUnitLengthXUnsafe,         getKernelUnitLengthXUnchecked, js_getKernelUnitLengthY,-        getKernelUnitLengthY, getKernelUnitLengthYUnchecked,-        SVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement,+        getKernelUnitLengthY, getKernelUnitLengthYUnsafe,+        getKernelUnitLengthYUnchecked, SVGFEDiffuseLightingElement(..),         gTypeSVGFEDiffuseLightingElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedString)@@ -36,6 +54,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEDiffuseLightingElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedString getIn1Unchecked self@@ -53,6 +80,15 @@   = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation> +getSurfaceScaleUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getSurfaceScaleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSurfaceScale (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation>  getSurfaceScaleUnchecked ::                          (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber getSurfaceScaleUnchecked self@@ -71,6 +107,15 @@   = liftIO (nullableToMaybe <$> (js_getDiffuseConstant (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation> +getDiffuseConstantUnsafe ::+                         (MonadIO m, HasCallStack) =>+                           SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getDiffuseConstantUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDiffuseConstant (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation>  getDiffuseConstantUnchecked ::                             (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber getDiffuseConstantUnchecked self@@ -89,6 +134,15 @@   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation> +getKernelUnitLengthXUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getKernelUnitLengthXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKernelUnitLengthX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation>  getKernelUnitLengthXUnchecked ::                               (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber getKernelUnitLengthXUnchecked self@@ -105,6 +159,15 @@                        SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation> +getKernelUnitLengthYUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getKernelUnitLengthYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getKernelUnitLengthY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation>  getKernelUnitLengthYUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement        (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R,         pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B,-        pattern SVG_CHANNEL_A, js_getIn1, getIn1, getIn1Unchecked,-        js_getIn2, getIn2, getIn2Unchecked, js_getScale, getScale,-        getScaleUnchecked, js_getXChannelSelector, getXChannelSelector,-        getXChannelSelectorUnchecked, js_getYChannelSelector,-        getYChannelSelector, getYChannelSelectorUnchecked,-        SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement,-        gTypeSVGFEDisplacementMapElement)+        pattern SVG_CHANNEL_A, js_getIn1, getIn1, getIn1Unsafe,+        getIn1Unchecked, js_getIn2, getIn2, getIn2Unsafe, getIn2Unchecked,+        js_getScale, getScale, getScaleUnsafe, getScaleUnchecked,+        js_getXChannelSelector, getXChannelSelector,+        getXChannelSelectorUnsafe, getXChannelSelectorUnchecked,+        js_getYChannelSelector, getYChannelSelector,+        getYChannelSelectorUnsafe, getYChannelSelectorUnchecked,+        SVGFEDisplacementMapElement(..), gTypeSVGFEDisplacementMapElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_CHANNEL_UNKNOWN = 0 pattern SVG_CHANNEL_R = 1 pattern SVG_CHANNEL_G = 2@@ -42,6 +59,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEDisplacementMapElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn1Unchecked self@@ -57,6 +83,15 @@ getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation> +getIn2Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEDisplacementMapElement -> m SVGAnimatedString+getIn2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation>  getIn2Unchecked ::                 (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedString getIn2Unchecked self@@ -72,6 +107,15 @@ getScale self = liftIO (nullableToMaybe <$> (js_getScale (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation> +getScaleUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGFEDisplacementMapElement -> m SVGAnimatedNumber+getScaleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getScale (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation>  getScaleUnchecked ::                   (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber getScaleUnchecked self@@ -89,6 +133,15 @@   = liftIO (nullableToMaybe <$> (js_getXChannelSelector (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation> +getXChannelSelectorUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration+getXChannelSelectorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getXChannelSelector (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation>  getXChannelSelectorUnchecked ::                              (MonadIO m) =>                                SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration@@ -106,6 +159,15 @@                       SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getYChannelSelector self   = liftIO (nullableToMaybe <$> (js_getYChannelSelector (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation> +getYChannelSelectorUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration+getYChannelSelectorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getYChannelSelector (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation>  getYChannelSelectorUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement-       (js_getAzimuth, getAzimuth, getAzimuthUnchecked, js_getElevation,-        getElevation, getElevationUnchecked, SVGFEDistantLightElement,-        castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement)+       (js_getAzimuth, getAzimuth, getAzimuthUnsafe, getAzimuthUnchecked,+        js_getElevation, getElevation, getElevationUnsafe,+        getElevationUnchecked, SVGFEDistantLightElement(..),+        gTypeSVGFEDistantLightElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"azimuth\"]" js_getAzimuth ::         SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber)@@ -32,6 +49,15 @@   = liftIO (nullableToMaybe <$> (js_getAzimuth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation> +getAzimuthUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEDistantLightElement -> m SVGAnimatedNumber+getAzimuthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAzimuth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation>  getAzimuthUnchecked ::                     (MonadIO m) => SVGFEDistantLightElement -> m SVGAnimatedNumber getAzimuthUnchecked self@@ -47,6 +73,15 @@                SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getElevation self   = liftIO (nullableToMaybe <$> (js_getElevation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation> +getElevationUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     SVGFEDistantLightElement -> m SVGAnimatedNumber+getElevationUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getElevation (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation>  getElevationUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement        (js_setStdDeviation, setStdDeviation, js_getIn1, getIn1,-        getIn1Unchecked, js_getDx, getDx, getDxUnchecked, js_getDy, getDy,-        getDyUnchecked, js_getStdDeviationX, getStdDeviationX,+        getIn1Unsafe, getIn1Unchecked, js_getDx, getDx, getDxUnsafe,+        getDxUnchecked, js_getDy, getDy, getDyUnsafe, getDyUnchecked,+        js_getStdDeviationX, getStdDeviationX, getStdDeviationXUnsafe,         getStdDeviationXUnchecked, js_getStdDeviationY, getStdDeviationY,-        getStdDeviationYUnchecked, SVGFEDropShadowElement,-        castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement)+        getStdDeviationYUnsafe, getStdDeviationYUnchecked,+        SVGFEDropShadowElement(..), gTypeSVGFEDropShadowElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"         js_setStdDeviation ::@@ -44,6 +61,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEDropShadowElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedString getIn1Unchecked self@@ -59,6 +85,15 @@ getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation> +getDxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFEDropShadowElement -> m SVGAnimatedNumber+getDxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation>  getDxUnchecked ::                (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber getDxUnchecked self@@ -74,6 +109,15 @@ getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation> +getDyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFEDropShadowElement -> m SVGAnimatedNumber+getDyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation>  getDyUnchecked ::                (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber getDyUnchecked self@@ -91,6 +135,15 @@   = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation> +getStdDeviationXUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGFEDropShadowElement -> m SVGAnimatedNumber+getStdDeviationXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStdDeviationX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation>  getStdDeviationXUnchecked ::                           (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber getStdDeviationXUnchecked self@@ -107,6 +160,15 @@                    SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self   = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation> +getStdDeviationYUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGFEDropShadowElement -> m SVGAnimatedNumber+getStdDeviationYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStdDeviationY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation>  getStdDeviationYUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs view
@@ -1,15 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement        (js_setStdDeviation, setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN,         pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP,-        pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, getIn1Unchecked,-        js_getStdDeviationX, getStdDeviationX, getStdDeviationXUnchecked,-        js_getStdDeviationY, getStdDeviationY, getStdDeviationYUnchecked,-        js_getEdgeMode, getEdgeMode, getEdgeModeUnchecked,-        SVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement,-        gTypeSVGFEGaussianBlurElement)+        pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, getIn1Unsafe,+        getIn1Unchecked, js_getStdDeviationX, getStdDeviationX,+        getStdDeviationXUnsafe, getStdDeviationXUnchecked,+        js_getStdDeviationY, getStdDeviationY, getStdDeviationYUnsafe,+        getStdDeviationYUnchecked, js_getEdgeMode, getEdgeMode,+        getEdgeModeUnsafe, getEdgeModeUnchecked,+        SVGFEGaussianBlurElement(..), gTypeSVGFEGaussianBlurElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"         js_setStdDeviation ::@@ -50,6 +67,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEGaussianBlurElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedString getIn1Unchecked self@@ -67,6 +93,15 @@   = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation> +getStdDeviationXUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGFEGaussianBlurElement -> m SVGAnimatedNumber+getStdDeviationXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStdDeviationX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation>  getStdDeviationXUnchecked ::                           (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationXUnchecked self@@ -85,6 +120,15 @@   = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation> +getStdDeviationYUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGFEGaussianBlurElement -> m SVGAnimatedNumber+getStdDeviationYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStdDeviationY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation>  getStdDeviationYUnchecked ::                           (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber getStdDeviationYUnchecked self@@ -100,6 +144,15 @@               SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self   = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation> +getEdgeModeUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration+getEdgeModeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getEdgeMode (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation>  getEdgeModeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs view
@@ -1,10 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEImageElement        (js_getPreserveAspectRatio, getPreserveAspectRatio,-        getPreserveAspectRatioUnchecked, SVGFEImageElement,-        castToSVGFEImageElement, gTypeSVGFEImageElement)+        getPreserveAspectRatioUnsafe, getPreserveAspectRatioUnchecked,+        SVGFEImageElement(..), gTypeSVGFEImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::@@ -31,6 +47,15 @@                          SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> +getPreserveAspectRatioUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreserveAspectRatio (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation>  getPreserveAspectRatioUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement-       (js_getIn1, getIn1, getIn1Unchecked, SVGFEMergeNodeElement,-        castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement)+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked,+        SVGFEMergeNodeElement(..), gTypeSVGFEMergeNodeElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFEMergeNodeElement -> IO (Nullable SVGAnimatedString)@@ -27,6 +43,15 @@ getIn1 ::        (MonadIO m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEMergeNodeElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation>  getIn1Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEMorphologyElement        (js_setRadius, setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN,         pattern SVG_MORPHOLOGY_OPERATOR_ERODE,         pattern SVG_MORPHOLOGY_OPERATOR_DILATE, js_getIn1, getIn1,-        getIn1Unchecked, js_getOperator, getOperator, getOperatorUnchecked,-        js_getRadiusX, getRadiusX, getRadiusXUnchecked, js_getRadiusY,-        getRadiusY, getRadiusYUnchecked, SVGFEMorphologyElement,-        castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement)+        getIn1Unsafe, getIn1Unchecked, js_getOperator, getOperator,+        getOperatorUnsafe, getOperatorUnchecked, js_getRadiusX, getRadiusX,+        getRadiusXUnsafe, getRadiusXUnchecked, js_getRadiusY, getRadiusY,+        getRadiusYUnsafe, getRadiusYUnchecked, SVGFEMorphologyElement(..),+        gTypeSVGFEMorphologyElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)"         js_setRadius :: SVGFEMorphologyElement -> Float -> Float -> IO ()@@ -47,6 +64,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEMorphologyElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedString getIn1Unchecked self@@ -63,6 +89,15 @@   = liftIO (nullableToMaybe <$> (js_getOperator (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation> +getOperatorUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGFEMorphologyElement -> m SVGAnimatedEnumeration+getOperatorUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOperator (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation>  getOperatorUnchecked ::                      (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedEnumeration getOperatorUnchecked self@@ -79,6 +114,15 @@   = liftIO (nullableToMaybe <$> (js_getRadiusX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation> +getRadiusXUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEMorphologyElement -> m SVGAnimatedNumber+getRadiusXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRadiusX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation>  getRadiusXUnchecked ::                     (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber getRadiusXUnchecked self@@ -93,6 +137,15 @@              SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusY self   = liftIO (nullableToMaybe <$> (js_getRadiusY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation> +getRadiusYUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGFEMorphologyElement -> m SVGAnimatedNumber+getRadiusYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRadiusY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation>  getRadiusYUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement-       (js_getIn1, getIn1, getIn1Unchecked, js_getDx, getDx,-        getDxUnchecked, js_getDy, getDy, getDyUnchecked,-        SVGFEOffsetElement, castToSVGFEOffsetElement,-        gTypeSVGFEOffsetElement)+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked, js_getDx, getDx,+        getDxUnsafe, getDxUnchecked, js_getDy, getDy, getDyUnsafe,+        getDyUnchecked, SVGFEOffsetElement(..), gTypeSVGFEOffsetElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFEOffsetElement -> IO (Nullable SVGAnimatedString)@@ -31,6 +46,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFEOffsetElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedString getIn1Unchecked self@@ -45,6 +69,15 @@ getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation> +getDxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFEOffsetElement -> m SVGAnimatedNumber+getDxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation>  getDxUnchecked ::                (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedNumber getDxUnchecked self@@ -57,6 +90,15 @@ getDy ::       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation> +getDyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGFEOffsetElement -> m SVGAnimatedNumber+getDyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getDy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation>  getDyUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getZ, getZ, getZUnchecked, SVGFEPointLightElement,-        castToSVGFEPointLightElement, gTypeSVGFEPointLightElement)+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getZ, getZ, getZUnsafe,+        getZUnchecked, SVGFEPointLightElement(..),+        gTypeSVGFEPointLightElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)@@ -31,6 +48,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFEPointLightElement -> m SVGAnimatedNumber+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber getXUnchecked self@@ -46,6 +72,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFEPointLightElement -> m SVGAnimatedNumber+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber getYUnchecked self@@ -59,6 +94,15 @@      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation> +getZUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFEPointLightElement -> m SVGAnimatedNumber+getZUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getZ (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation>  getZUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs view
@@ -1,14 +1,21 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement-       (js_getIn1, getIn1, getIn1Unchecked, js_getSurfaceScale,-        getSurfaceScale, getSurfaceScaleUnchecked, js_getSpecularConstant,-        getSpecularConstant, getSpecularConstantUnchecked,-        js_getSpecularExponent, getSpecularExponent,-        getSpecularExponentUnchecked, SVGFESpecularLightingElement,-        castToSVGFESpecularLightingElement,+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked,+        js_getSurfaceScale, getSurfaceScale, getSurfaceScaleUnsafe,+        getSurfaceScaleUnchecked, js_getSpecularConstant,+        getSpecularConstant, getSpecularConstantUnsafe,+        getSpecularConstantUnchecked, js_getSpecularExponent,+        getSpecularExponent, getSpecularExponentUnsafe,+        getSpecularExponentUnchecked, SVGFESpecularLightingElement(..),         gTypeSVGFESpecularLightingElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +31,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedString)@@ -35,6 +52,15 @@ getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFESpecularLightingElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation>  getIn1Unchecked ::                 (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedString getIn1Unchecked self@@ -52,6 +78,15 @@   = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation> +getSurfaceScaleUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSurfaceScaleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSurfaceScale (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation>  getSurfaceScaleUnchecked ::                          (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber getSurfaceScaleUnchecked self@@ -70,6 +105,15 @@   = liftIO (nullableToMaybe <$> (js_getSpecularConstant (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation> +getSpecularConstantUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSpecularConstantUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSpecularConstant (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation>  getSpecularConstantUnchecked ::                              (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber getSpecularConstantUnchecked self@@ -86,6 +130,15 @@                       SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self   = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation> +getSpecularExponentUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSpecularExponentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSpecularExponent (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation>  getSpecularExponentUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs view
@@ -1,16 +1,24 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getZ, getZ, getZUnchecked, js_getPointsAtX, getPointsAtX,+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getZ, getZ, getZUnsafe,+        getZUnchecked, js_getPointsAtX, getPointsAtX, getPointsAtXUnsafe,         getPointsAtXUnchecked, js_getPointsAtY, getPointsAtY,-        getPointsAtYUnchecked, js_getPointsAtZ, getPointsAtZ,-        getPointsAtZUnchecked, js_getSpecularExponent, getSpecularExponent,-        getSpecularExponentUnchecked, js_getLimitingConeAngle,-        getLimitingConeAngle, getLimitingConeAngleUnchecked,-        SVGFESpotLightElement, castToSVGFESpotLightElement,-        gTypeSVGFESpotLightElement)+        getPointsAtYUnsafe, getPointsAtYUnchecked, js_getPointsAtZ,+        getPointsAtZ, getPointsAtZUnsafe, getPointsAtZUnchecked,+        js_getSpecularExponent, getSpecularExponent,+        getSpecularExponentUnsafe, getSpecularExponentUnchecked,+        js_getLimitingConeAngle, getLimitingConeAngle,+        getLimitingConeAngleUnsafe, getLimitingConeAngleUnchecked,+        SVGFESpotLightElement(..), gTypeSVGFESpotLightElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)@@ -36,6 +54,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFESpotLightElement -> m SVGAnimatedNumber+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getXUnchecked self@@ -50,6 +77,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFESpotLightElement -> m SVGAnimatedNumber+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getYUnchecked self@@ -64,6 +100,15 @@ getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation> +getZUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFESpotLightElement -> m SVGAnimatedNumber+getZUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getZ (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation>  getZUnchecked ::               (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getZUnchecked self@@ -80,6 +125,15 @@   = liftIO (nullableToMaybe <$> (js_getPointsAtX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation> +getPointsAtXUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPointsAtX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation>  getPointsAtXUnchecked ::                       (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getPointsAtXUnchecked self@@ -96,6 +150,15 @@   = liftIO (nullableToMaybe <$> (js_getPointsAtY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation> +getPointsAtYUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPointsAtY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation>  getPointsAtYUnchecked ::                       (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getPointsAtYUnchecked self@@ -112,6 +175,15 @@   = liftIO (nullableToMaybe <$> (js_getPointsAtZ (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation> +getPointsAtZUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtZUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPointsAtZ (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation>  getPointsAtZUnchecked ::                       (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getPointsAtZUnchecked self@@ -128,6 +200,15 @@   = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation> +getSpecularExponentUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGFESpotLightElement -> m SVGAnimatedNumber+getSpecularExponentUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSpecularExponent (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation>  getSpecularExponentUnchecked ::                              (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber getSpecularExponentUnchecked self@@ -143,6 +224,15 @@                      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getLimitingConeAngle self   = liftIO (nullableToMaybe <$> (js_getLimitingConeAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation> +getLimitingConeAngleUnsafe ::+                           (MonadIO m, HasCallStack) =>+                             SVGFESpotLightElement -> m SVGAnimatedNumber+getLimitingConeAngleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getLimitingConeAngle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation>  getLimitingConeAngleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFETileElement-       (js_getIn1, getIn1, getIn1Unchecked, SVGFETileElement,-        castToSVGFETileElement, gTypeSVGFETileElement)+       (js_getIn1, getIn1, getIn1Unsafe, getIn1Unchecked,+        SVGFETileElement(..), gTypeSVGFETileElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::         SVGFETileElement -> IO (Nullable SVGAnimatedString)@@ -27,6 +43,15 @@ getIn1 ::        (MonadIO m) => SVGFETileElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation> +getIn1Unsafe ::+             (MonadIO m, HasCallStack) =>+               SVGFETileElement -> m SVGAnimatedString+getIn1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getIn1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation>  getIn1Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs view
@@ -1,19 +1,27 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFETurbulenceElement        (pattern SVG_TURBULENCE_TYPE_UNKNOWN,         pattern SVG_TURBULENCE_TYPE_FRACTALNOISE,         pattern SVG_TURBULENCE_TYPE_TURBULENCE,         pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH,         pattern SVG_STITCHTYPE_NOSTITCH, js_getBaseFrequencyX,-        getBaseFrequencyX, getBaseFrequencyXUnchecked,-        js_getBaseFrequencyY, getBaseFrequencyY,+        getBaseFrequencyX, getBaseFrequencyXUnsafe,+        getBaseFrequencyXUnchecked, js_getBaseFrequencyY,+        getBaseFrequencyY, getBaseFrequencyYUnsafe,         getBaseFrequencyYUnchecked, js_getNumOctaves, getNumOctaves,-        getNumOctavesUnchecked, js_getSeed, getSeed, getSeedUnchecked,-        js_getStitchTiles, getStitchTiles, getStitchTilesUnchecked,-        js_getType, getType, getTypeUnchecked, SVGFETurbulenceElement,-        castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement)+        getNumOctavesUnsafe, getNumOctavesUnchecked, js_getSeed, getSeed,+        getSeedUnsafe, getSeedUnchecked, js_getStitchTiles, getStitchTiles,+        getStitchTilesUnsafe, getStitchTilesUnchecked, js_getType, getType,+        getTypeUnsafe, getTypeUnchecked, SVGFETurbulenceElement(..),+        gTypeSVGFETurbulenceElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -29,6 +37,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_TURBULENCE_TYPE_UNKNOWN = 0 pattern SVG_TURBULENCE_TYPE_FRACTALNOISE = 1 pattern SVG_TURBULENCE_TYPE_TURBULENCE = 2@@ -48,6 +66,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseFrequencyX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation> +getBaseFrequencyXUnsafe ::+                        (MonadIO m, HasCallStack) =>+                          SVGFETurbulenceElement -> m SVGAnimatedNumber+getBaseFrequencyXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseFrequencyX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation>  getBaseFrequencyXUnchecked ::                            (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyXUnchecked self@@ -66,6 +93,15 @@   = liftIO (nullableToMaybe <$> (js_getBaseFrequencyY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation> +getBaseFrequencyYUnsafe ::+                        (MonadIO m, HasCallStack) =>+                          SVGFETurbulenceElement -> m SVGAnimatedNumber+getBaseFrequencyYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBaseFrequencyY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation>  getBaseFrequencyYUnchecked ::                            (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getBaseFrequencyYUnchecked self@@ -84,6 +120,15 @@   = liftIO (nullableToMaybe <$> (js_getNumOctaves (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation> +getNumOctavesUnsafe ::+                    (MonadIO m, HasCallStack) =>+                      SVGFETurbulenceElement -> m SVGAnimatedInteger+getNumOctavesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNumOctaves (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation>  getNumOctavesUnchecked ::                        (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedInteger getNumOctavesUnchecked self@@ -99,6 +144,15 @@ getSeed self = liftIO (nullableToMaybe <$> (js_getSeed (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation> +getSeedUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGFETurbulenceElement -> m SVGAnimatedNumber+getSeedUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getSeed (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation>  getSeedUnchecked ::                  (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber getSeedUnchecked self@@ -116,6 +170,15 @@   = liftIO (nullableToMaybe <$> (js_getStitchTiles (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation> +getStitchTilesUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       SVGFETurbulenceElement -> m SVGAnimatedEnumeration+getStitchTilesUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getStitchTiles (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation>  getStitchTilesUnchecked ::                         (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration getStitchTilesUnchecked self@@ -130,6 +193,15 @@         (MonadIO m) =>           SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftIO (nullableToMaybe <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation> +getTypeUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGFETurbulenceElement -> m SVGAnimatedEnumeration+getTypeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getType (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation>  getTypeUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs view
@@ -1,15 +1,24 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFilterElement        (js_setFilterRes, setFilterRes, js_getFilterUnits, getFilterUnits,-        getFilterUnitsUnchecked, js_getPrimitiveUnits, getPrimitiveUnits,-        getPrimitiveUnitsUnchecked, js_getX, getX, getXUnchecked, js_getY,-        getY, getYUnchecked, js_getWidth, getWidth, getWidthUnchecked,-        js_getHeight, getHeight, getHeightUnchecked, js_getFilterResX,-        getFilterResX, getFilterResXUnchecked, js_getFilterResY,-        getFilterResY, getFilterResYUnchecked, SVGFilterElement,-        castToSVGFilterElement, gTypeSVGFilterElement)+        getFilterUnitsUnsafe, getFilterUnitsUnchecked,+        js_getPrimitiveUnits, getPrimitiveUnits, getPrimitiveUnitsUnsafe,+        getPrimitiveUnitsUnchecked, js_getX, getX, getXUnsafe,+        getXUnchecked, js_getY, getY, getYUnsafe, getYUnchecked,+        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,+        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,+        js_getFilterResX, getFilterResX, getFilterResXUnsafe,+        getFilterResXUnchecked, js_getFilterResY, getFilterResY,+        getFilterResYUnsafe, getFilterResYUnchecked, SVGFilterElement(..),+        gTypeSVGFilterElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +34,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setFilterRes\"]($2, $3)"         js_setFilterRes :: SVGFilterElement -> Word -> Word -> IO ()@@ -46,6 +65,15 @@   = liftIO (nullableToMaybe <$> (js_getFilterUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation> +getFilterUnitsUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       SVGFilterElement -> m SVGAnimatedEnumeration+getFilterUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFilterUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation>  getFilterUnitsUnchecked ::                         (MonadIO m) => SVGFilterElement -> m SVGAnimatedEnumeration getFilterUnitsUnchecked self@@ -63,6 +91,15 @@   = liftIO (nullableToMaybe <$> (js_getPrimitiveUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation> +getPrimitiveUnitsUnsafe ::+                        (MonadIO m, HasCallStack) =>+                          SVGFilterElement -> m SVGAnimatedEnumeration+getPrimitiveUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPrimitiveUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation>  getPrimitiveUnitsUnchecked ::                            (MonadIO m) => SVGFilterElement -> m SVGAnimatedEnumeration getPrimitiveUnitsUnchecked self@@ -78,6 +115,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFilterElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength getXUnchecked self@@ -92,6 +138,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFilterElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength getYUnchecked self@@ -106,6 +161,15 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGFilterElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength getWidthUnchecked self@@ -120,6 +184,15 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFilterElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation>  getHeightUnchecked ::                    (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength getHeightUnchecked self@@ -136,6 +209,15 @@   = liftIO (nullableToMaybe <$> (js_getFilterResX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation> +getFilterResXUnsafe ::+                    (MonadIO m, HasCallStack) =>+                      SVGFilterElement -> m SVGAnimatedInteger+getFilterResXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFilterResX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation>  getFilterResXUnchecked ::                        (MonadIO m) => SVGFilterElement -> m SVGAnimatedInteger getFilterResXUnchecked self@@ -150,6 +232,15 @@               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResY self   = liftIO (nullableToMaybe <$> (js_getFilterResY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation> +getFilterResYUnsafe ::+                    (MonadIO m, HasCallStack) =>+                      SVGFilterElement -> m SVGAnimatedInteger+getFilterResYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFilterResY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation>  getFilterResYUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, js_getResult, getResult, getResultUnchecked,-        SVGFilterPrimitiveStandardAttributes,-        castToSVGFilterPrimitiveStandardAttributes,+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getWidth, getWidth, getWidthUnsafe,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe,+        getHeightUnchecked, js_getResult, getResult, getResultUnsafe,+        getResultUnchecked, SVGFilterPrimitiveStandardAttributes(..),         gTypeSVGFilterPrimitiveStandardAttributes)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGFilterPrimitiveStandardAttributes ->@@ -35,6 +51,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation>  getXUnchecked ::               (MonadIO m) =>                 SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength@@ -52,6 +77,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation>  getYUnchecked ::               (MonadIO m) =>                 SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength@@ -69,6 +103,15 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation>  getWidthUnchecked ::                   (MonadIO m) =>                     SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength@@ -86,6 +129,15 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation>  getHeightUnchecked ::                    (MonadIO m) =>                      SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength@@ -101,6 +153,15 @@           (MonadIO m) =>             SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString) getResult self = liftIO (nullableToMaybe <$> (js_getResult (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation> +getResultUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedString+getResultUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getResult (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation>  getResultUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox-       (js_getViewBox, getViewBox, getViewBoxUnchecked,+       (js_getViewBox, getViewBox, getViewBoxUnsafe, getViewBoxUnchecked,         js_getPreserveAspectRatio, getPreserveAspectRatio,-        getPreserveAspectRatioUnchecked, SVGFitToViewBox,-        castToSVGFitToViewBox, gTypeSVGFitToViewBox)+        getPreserveAspectRatioUnsafe, getPreserveAspectRatioUnchecked,+        SVGFitToViewBox(..), gTypeSVGFitToViewBox)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"viewBox\"]" js_getViewBox ::         SVGFitToViewBox -> IO (Nullable SVGAnimatedRect)@@ -32,6 +48,14 @@   = liftIO (nullableToMaybe <$> (js_getViewBox (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation> +getViewBoxUnsafe ::+                 (MonadIO m, HasCallStack) => SVGFitToViewBox -> m SVGAnimatedRect+getViewBoxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getViewBox (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation>  getViewBoxUnchecked ::                     (MonadIO m) => SVGFitToViewBox -> m SVGAnimatedRect getViewBoxUnchecked self@@ -47,6 +71,15 @@                          SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation> +getPreserveAspectRatioUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGFitToViewBox -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreserveAspectRatio (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation>  getPreserveAspectRatioUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs view
@@ -1,11 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, SVGForeignObjectElement,-        castToSVGForeignObjectElement, gTypeSVGForeignObjectElement)+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getWidth, getWidth, getWidthUnsafe,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe,+        getHeightUnchecked, SVGForeignObjectElement(..),+        gTypeSVGForeignObjectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)@@ -32,6 +49,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGForeignObjectElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength getXUnchecked self@@ -47,6 +73,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGForeignObjectElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength getYUnchecked self@@ -62,6 +97,15 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGForeignObjectElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength getWidthUnchecked self@@ -75,6 +119,15 @@           (MonadIO m) =>             SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGForeignObjectElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation>  getHeightUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs view
@@ -1,13 +1,18 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGGlyphRefElement        (js_setGlyphRef, setGlyphRef, js_getGlyphRef, getGlyphRef,         js_setFormat, setFormat, js_getFormat, getFormat, js_setX, setX,         js_getX, getX, js_setY, setY, js_getY, getY, js_setDx, setDx,         js_getDx, getDx, js_setDy, setDy, js_getDy, getDy,-        SVGGlyphRefElement, castToSVGGlyphRefElement,-        gTypeSVGGlyphRefElement)+        SVGGlyphRefElement(..), gTypeSVGGlyphRefElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +28,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"         js_setGlyphRef :: SVGGlyphRefElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs view
@@ -1,15 +1,22 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGGradientElement        (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD,         pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT,-        js_getGradientUnits, getGradientUnits, getGradientUnitsUnchecked,-        js_getGradientTransform, getGradientTransform,+        js_getGradientUnits, getGradientUnits, getGradientUnitsUnsafe,+        getGradientUnitsUnchecked, js_getGradientTransform,+        getGradientTransform, getGradientTransformUnsafe,         getGradientTransformUnchecked, js_getSpreadMethod, getSpreadMethod,-        getSpreadMethodUnchecked, SVGGradientElement,-        castToSVGGradientElement, gTypeSVGGradientElement,+        getSpreadMethodUnsafe, getSpreadMethodUnchecked,+        SVGGradientElement(..), gTypeSVGGradientElement,         IsSVGGradientElement, toSVGGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -25,6 +32,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_SPREADMETHOD_UNKNOWN = 0 pattern SVG_SPREADMETHOD_PAD = 1 pattern SVG_SPREADMETHOD_REFLECT = 2@@ -44,6 +61,16 @@          (js_getGradientUnits (toSVGGradientElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation> +getGradientUnitsUnsafe ::+                       (MonadIO m, IsSVGGradientElement self, HasCallStack) =>+                         self -> m SVGAnimatedEnumeration+getGradientUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getGradientUnits (toSVGGradientElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation>  getGradientUnitsUnchecked ::                           (MonadIO m, IsSVGGradientElement self) =>                             self -> m SVGAnimatedEnumeration@@ -66,6 +93,16 @@          (js_getGradientTransform (toSVGGradientElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation> +getGradientTransformUnsafe ::+                           (MonadIO m, IsSVGGradientElement self, HasCallStack) =>+                             self -> m SVGAnimatedTransformList+getGradientTransformUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getGradientTransform (toSVGGradientElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation>  getGradientTransformUnchecked ::                               (MonadIO m, IsSVGGradientElement self) =>                                 self -> m SVGAnimatedTransformList@@ -86,6 +123,16 @@   = liftIO       (nullableToMaybe <$>          (js_getSpreadMethod (toSVGGradientElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation> +getSpreadMethodUnsafe ::+                      (MonadIO m, IsSVGGradientElement self, HasCallStack) =>+                        self -> m SVGAnimatedEnumeration+getSpreadMethodUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getSpreadMethod (toSVGGradientElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation>  getSpreadMethodUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs view
@@ -1,18 +1,27 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement-       (js_getBBox, getBBox, getBBox_, getBBoxUnchecked, js_getCTM,-        getCTM, getCTM_, getCTMUnchecked, js_getScreenCTM, getScreenCTM,-        getScreenCTM_, getScreenCTMUnchecked, js_getTransformToElement,+       (js_getBBox, getBBox, getBBox_, getBBoxUnsafe, getBBoxUnchecked,+        js_getCTM, getCTM, getCTM_, getCTMUnsafe, getCTMUnchecked,+        js_getScreenCTM, getScreenCTM, getScreenCTM_, getScreenCTMUnsafe,+        getScreenCTMUnchecked, js_getTransformToElement,         getTransformToElement, getTransformToElement_,-        getTransformToElementUnchecked, js_getTransform, getTransform,+        getTransformToElementUnsafe, getTransformToElementUnchecked,+        js_getTransform, getTransform, getTransformUnsafe,         getTransformUnchecked, js_getNearestViewportElement,-        getNearestViewportElement, getNearestViewportElementUnchecked,-        js_getFarthestViewportElement, getFarthestViewportElement,-        getFarthestViewportElementUnchecked, SVGGraphicsElement,-        castToSVGGraphicsElement, gTypeSVGGraphicsElement,-        IsSVGGraphicsElement, toSVGGraphicsElement)+        getNearestViewportElement, getNearestViewportElementUnsafe,+        getNearestViewportElementUnchecked, js_getFarthestViewportElement,+        getFarthestViewportElement, getFarthestViewportElementUnsafe,+        getFarthestViewportElementUnchecked, SVGGraphicsElement(..),+        gTypeSVGGraphicsElement, IsSVGGraphicsElement,+        toSVGGraphicsElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -28,6 +37,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getBBox\"]()" js_getBBox ::         SVGGraphicsElement -> IO (Nullable SVGRect)@@ -45,6 +64,15 @@   = liftIO (void (js_getBBox (toSVGGraphicsElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> +getBBoxUnsafe ::+              (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+                self -> m SVGRect+getBBoxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getBBox (toSVGGraphicsElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation>  getBBoxUnchecked ::                  (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGRect getBBoxUnchecked self@@ -69,6 +97,15 @@   = liftIO (void (js_getCTM (toSVGGraphicsElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> +getCTMUnsafe ::+             (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+               self -> m SVGMatrix+getCTMUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCTM (toSVGGraphicsElement self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation>  getCTMUnchecked ::                 (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGMatrix getCTMUnchecked self@@ -94,6 +131,16 @@   = liftIO (void (js_getScreenCTM (toSVGGraphicsElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> +getScreenCTMUnsafe ::+                   (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+                     self -> m SVGMatrix+getScreenCTMUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getScreenCTM (toSVGGraphicsElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation>  getScreenCTMUnchecked ::                       (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGMatrix getScreenCTMUnchecked self@@ -127,6 +174,18 @@             (maybeToNullable (fmap toSVGElement element))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> +getTransformToElementUnsafe ::+                            (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element,+                             HasCallStack) =>+                              self -> Maybe element -> m SVGMatrix+getTransformToElementUnsafe self element+  = liftIO+      ((nullableToMaybe <$>+          (js_getTransformToElement (toSVGGraphicsElement self)+             (maybeToNullable (fmap toSVGElement element))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation>  getTransformToElementUnchecked ::                                (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) =>                                  self -> Maybe element -> m SVGMatrix@@ -149,6 +208,16 @@       (nullableToMaybe <$> (js_getTransform (toSVGGraphicsElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation> +getTransformUnsafe ::+                   (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+                     self -> m SVGAnimatedTransformList+getTransformUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getTransform (toSVGGraphicsElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation>  getTransformUnchecked ::                       (MonadIO m, IsSVGGraphicsElement self) =>                         self -> m SVGAnimatedTransformList@@ -171,6 +240,16 @@          (js_getNearestViewportElement (toSVGGraphicsElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation> +getNearestViewportElementUnsafe ::+                                (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+                                  self -> m SVGElement+getNearestViewportElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getNearestViewportElement (toSVGGraphicsElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation>  getNearestViewportElementUnchecked ::                                    (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGElement getNearestViewportElementUnchecked self@@ -190,6 +269,16 @@   = liftIO       (nullableToMaybe <$>          (js_getFarthestViewportElement (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation> +getFarthestViewportElementUnsafe ::+                                 (MonadIO m, IsSVGGraphicsElement self, HasCallStack) =>+                                   self -> m SVGElement+getFarthestViewportElementUnsafe self+  = liftIO+      ((nullableToMaybe <$>+          (js_getFarthestViewportElement (toSVGGraphicsElement self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation>  getFarthestViewportElementUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs view
@@ -1,12 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGImageElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getWidth, getWidth, getWidthUnsafe,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe,         getHeightUnchecked, js_getPreserveAspectRatio,-        getPreserveAspectRatio, getPreserveAspectRatioUnchecked,-        SVGImageElement, castToSVGImageElement, gTypeSVGImageElement)+        getPreserveAspectRatio, getPreserveAspectRatioUnsafe,+        getPreserveAspectRatioUnchecked, SVGImageElement(..),+        gTypeSVGImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGImageElement -> IO (Nullable SVGAnimatedLength)@@ -32,6 +50,14 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) => SVGImageElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGImageElement -> m SVGAnimatedLength getXUnchecked self@@ -46,6 +72,14 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) => SVGImageElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGImageElement -> m SVGAnimatedLength getYUnchecked self@@ -60,6 +94,14 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) => SVGImageElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGImageElement -> m SVGAnimatedLength getWidthUnchecked self@@ -74,6 +116,14 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) => SVGImageElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation>  getHeightUnchecked ::                    (MonadIO m) => SVGImageElement -> m SVGAnimatedLength getHeightUnchecked self@@ -89,6 +139,15 @@                          SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation> +getPreserveAspectRatioUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGImageElement -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPreserveAspectRatio (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation>  getPreserveAspectRatioUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGLength        (js_newValueSpecifiedUnits, newValueSpecifiedUnits,         js_convertToSpecifiedUnits, convertToSpecifiedUnits,@@ -12,10 +17,11 @@         js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,         js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,         js_setValueAsString, setValueAsString, js_getValueAsString,-        getValueAsString, getValueAsStringUnchecked, SVGLength,-        castToSVGLength, gTypeSVGLength)+        getValueAsString, getValueAsStringUnsafe,+        getValueAsStringUnchecked, SVGLength(..), gTypeSVGLength)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -31,6 +37,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe         "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits@@ -119,6 +135,15 @@                  (MonadIO m, FromJSString result) => SVGLength -> m (Maybe result) getValueAsString self   = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +getValueAsStringUnsafe ::+                       (MonadIO m, HasCallStack, FromJSString result) =>+                         SVGLength -> m result+getValueAsStringUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getValueAsString (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation>  getValueAsStringUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGLengthList        (js_clear, clear, js_initialize, initialize, initialize_,-        initializeUnchecked, js_getItem, getItem, getItem_,-        getItemUnchecked, js_insertItemBefore, insertItemBefore,-        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,-        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,-        removeItem, removeItem_, removeItemUnchecked, js_appendItem,-        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,-        getNumberOfItems, SVGLengthList, castToSVGLengthList,-        gTypeSVGLengthList)+        initializeUnsafe, initializeUnchecked, js_getItem, getItem,+        getItem_, getItemUnsafe, getItemUnchecked, js_insertItemBefore,+        insertItemBefore, insertItemBefore_, insertItemBeforeUnsafe,+        insertItemBeforeUnchecked, js_replaceItem, replaceItem,+        replaceItem_, replaceItemUnsafe, replaceItemUnchecked,+        js_removeItem, removeItem, removeItem_, removeItemUnsafe,+        removeItemUnchecked, js_appendItem, appendItem, appendItem_,+        appendItemUnsafe, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGLengthList(..), gTypeSVGLengthList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         SVGLengthList -> IO ()@@ -53,6 +70,16 @@   = liftIO (void (js_initialize (self) (maybeToNullable item)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> +initializeUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGLengthList -> Maybe SVGLength -> m SVGLength+initializeUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_initialize (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation>  initializeUnchecked ::                     (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m SVGLength initializeUnchecked self item@@ -74,6 +101,14 @@ getItem_ self index = liftIO (void (js_getItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> +getItemUnsafe ::+              (MonadIO m, HasCallStack) => SVGLengthList -> Word -> m SVGLength+getItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_getItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation>  getItemUnchecked ::                  (MonadIO m) => SVGLengthList -> Word -> m SVGLength getItemUnchecked self index@@ -101,6 +136,16 @@       (void (js_insertItemBefore (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> +insertItemBeforeUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength+insertItemBeforeUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_insertItemBefore (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation>  insertItemBeforeUnchecked ::                           (MonadIO m) =>                             SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength@@ -131,6 +176,16 @@       (void (js_replaceItem (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> +replaceItemUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength+replaceItemUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_replaceItem (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation>  replaceItemUnchecked ::                      (MonadIO m) =>                        SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength@@ -153,6 +208,14 @@ removeItem_ self index = liftIO (void (js_removeItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> +removeItemUnsafe ::+                 (MonadIO m, HasCallStack) => SVGLengthList -> Word -> m SVGLength+removeItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_removeItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation>  removeItemUnchecked ::                     (MonadIO m) => SVGLengthList -> Word -> m SVGLength removeItemUnchecked self index@@ -176,6 +239,16 @@             (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m () appendItem_ self item   = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> +appendItemUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGLengthList -> Maybe SVGLength -> m SVGLength+appendItemUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_appendItem (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation>  appendItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGLineElement-       (js_getX1, getX1, getX1Unchecked, js_getY1, getY1, getY1Unchecked,-        js_getX2, getX2, getX2Unchecked, js_getY2, getY2, getY2Unchecked,-        SVGLineElement, castToSVGLineElement, gTypeSVGLineElement)+       (js_getX1, getX1, getX1Unsafe, getX1Unchecked, js_getY1, getY1,+        getY1Unsafe, getY1Unchecked, js_getX2, getX2, getX2Unsafe,+        getX2Unchecked, js_getY2, getY2, getY2Unsafe, getY2Unchecked,+        SVGLineElement(..), gTypeSVGLineElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::         SVGLineElement -> IO (Nullable SVGAnimatedLength)@@ -30,6 +47,14 @@ getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation> +getX1Unsafe ::+            (MonadIO m, HasCallStack) => SVGLineElement -> m SVGAnimatedLength+getX1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation>  getX1Unchecked ::                (MonadIO m) => SVGLineElement -> m SVGAnimatedLength getX1Unchecked self@@ -44,6 +69,14 @@ getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation> +getY1Unsafe ::+            (MonadIO m, HasCallStack) => SVGLineElement -> m SVGAnimatedLength+getY1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation>  getY1Unchecked ::                (MonadIO m) => SVGLineElement -> m SVGAnimatedLength getY1Unchecked self@@ -58,6 +91,14 @@ getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation> +getX2Unsafe ::+            (MonadIO m, HasCallStack) => SVGLineElement -> m SVGAnimatedLength+getX2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation>  getX2Unchecked ::                (MonadIO m) => SVGLineElement -> m SVGAnimatedLength getX2Unchecked self@@ -70,6 +111,14 @@ getY2 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation> +getY2Unsafe ::+            (MonadIO m, HasCallStack) => SVGLineElement -> m SVGAnimatedLength+getY2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation>  getY2Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement-       (js_getX1, getX1, getX1Unchecked, js_getY1, getY1, getY1Unchecked,-        js_getX2, getX2, getX2Unchecked, js_getY2, getY2, getY2Unchecked,-        SVGLinearGradientElement, castToSVGLinearGradientElement,-        gTypeSVGLinearGradientElement)+       (js_getX1, getX1, getX1Unsafe, getX1Unchecked, js_getY1, getY1,+        getY1Unsafe, getY1Unchecked, js_getX2, getX2, getX2Unsafe,+        getX2Unchecked, js_getY2, getY2, getY2Unsafe, getY2Unchecked,+        SVGLinearGradientElement(..), gTypeSVGLinearGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::         SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)@@ -32,6 +48,15 @@ getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation> +getX1Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGLinearGradientElement -> m SVGAnimatedLength+getX1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation>  getX1Unchecked ::                (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength getX1Unchecked self@@ -47,6 +72,15 @@ getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation> +getY1Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGLinearGradientElement -> m SVGAnimatedLength+getY1Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY1 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation>  getY1Unchecked ::                (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength getY1Unchecked self@@ -62,6 +96,15 @@ getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation> +getX2Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGLinearGradientElement -> m SVGAnimatedLength+getX2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation>  getX2Unchecked ::                (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength getX2Unchecked self@@ -75,6 +118,15 @@       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation> +getY2Unsafe ::+            (MonadIO m, HasCallStack) =>+              SVGLinearGradientElement -> m SVGAnimatedLength+getY2Unsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY2 (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation>  getY2Unchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGMarkerElement        (js_setOrientToAuto, setOrientToAuto, js_setOrientToAngle,         setOrientToAngle, pattern SVG_MARKERUNITS_UNKNOWN,@@ -6,15 +11,18 @@         pattern SVG_MARKERUNITS_STROKEWIDTH,         pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,         pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX,-        getRefXUnchecked, js_getRefY, getRefY, getRefYUnchecked,-        js_getMarkerUnits, getMarkerUnits, getMarkerUnitsUnchecked,-        js_getMarkerWidth, getMarkerWidth, getMarkerWidthUnchecked,-        js_getMarkerHeight, getMarkerHeight, getMarkerHeightUnchecked,-        js_getOrientType, getOrientType, getOrientTypeUnchecked,-        js_getOrientAngle, getOrientAngle, getOrientAngleUnchecked,-        SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement)+        getRefXUnsafe, getRefXUnchecked, js_getRefY, getRefY,+        getRefYUnsafe, getRefYUnchecked, js_getMarkerUnits, getMarkerUnits,+        getMarkerUnitsUnsafe, getMarkerUnitsUnchecked, js_getMarkerWidth,+        getMarkerWidth, getMarkerWidthUnsafe, getMarkerWidthUnchecked,+        js_getMarkerHeight, getMarkerHeight, getMarkerHeightUnsafe,+        getMarkerHeightUnchecked, js_getOrientType, getOrientType,+        getOrientTypeUnsafe, getOrientTypeUnchecked, js_getOrientAngle,+        getOrientAngle, getOrientAngleUnsafe, getOrientAngleUnchecked,+        SVGMarkerElement(..), gTypeSVGMarkerElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +38,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setOrientToAuto\"]()"         js_setOrientToAuto :: SVGMarkerElement -> IO ()@@ -63,6 +81,15 @@ getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation> +getRefXUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGMarkerElement -> m SVGAnimatedLength+getRefXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRefX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation>  getRefXUnchecked ::                  (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getRefXUnchecked self@@ -77,6 +104,15 @@ getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation> +getRefYUnsafe ::+              (MonadIO m, HasCallStack) =>+                SVGMarkerElement -> m SVGAnimatedLength+getRefYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRefY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation>  getRefYUnchecked ::                  (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getRefYUnchecked self@@ -93,6 +129,15 @@   = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation> +getMarkerUnitsUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       SVGMarkerElement -> m SVGAnimatedEnumeration+getMarkerUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMarkerUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation>  getMarkerUnitsUnchecked ::                         (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration getMarkerUnitsUnchecked self@@ -110,6 +155,15 @@   = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation> +getMarkerWidthUnsafe ::+                     (MonadIO m, HasCallStack) =>+                       SVGMarkerElement -> m SVGAnimatedLength+getMarkerWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMarkerWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation>  getMarkerWidthUnchecked ::                         (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getMarkerWidthUnchecked self@@ -127,6 +181,15 @@   = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation> +getMarkerHeightUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGMarkerElement -> m SVGAnimatedLength+getMarkerHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMarkerHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation>  getMarkerHeightUnchecked ::                          (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength getMarkerHeightUnchecked self@@ -144,6 +207,15 @@   = liftIO (nullableToMaybe <$> (js_getOrientType (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation> +getOrientTypeUnsafe ::+                    (MonadIO m, HasCallStack) =>+                      SVGMarkerElement -> m SVGAnimatedEnumeration+getOrientTypeUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOrientType (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation>  getOrientTypeUnchecked ::                        (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration getOrientTypeUnchecked self@@ -158,6 +230,14 @@                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self   = liftIO (nullableToMaybe <$> (js_getOrientAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation> +getOrientAngleUnsafe ::+                     (MonadIO m, HasCallStack) => SVGMarkerElement -> m SVGAnimatedAngle+getOrientAngleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getOrientAngle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation>  getOrientAngleUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs view
@@ -1,13 +1,20 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGMaskElement-       (js_getMaskUnits, getMaskUnits, getMaskUnitsUnchecked,-        js_getMaskContentUnits, getMaskContentUnits,-        getMaskContentUnitsUnchecked, js_getX, getX, getXUnchecked,-        js_getY, getY, getYUnchecked, js_getWidth, getWidth,-        getWidthUnchecked, js_getHeight, getHeight, getHeightUnchecked,-        SVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement)+       (js_getMaskUnits, getMaskUnits, getMaskUnitsUnsafe,+        getMaskUnitsUnchecked, js_getMaskContentUnits, getMaskContentUnits,+        getMaskContentUnitsUnsafe, getMaskContentUnitsUnchecked, js_getX,+        getX, getXUnsafe, getXUnchecked, js_getY, getY, getYUnsafe,+        getYUnchecked, js_getWidth, getWidth, getWidthUnsafe,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe,+        getHeightUnchecked, SVGMaskElement(..), gTypeSVGMaskElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +30,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"maskUnits\"]"         js_getMaskUnits ::@@ -35,6 +52,15 @@   = liftIO (nullableToMaybe <$> (js_getMaskUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation> +getMaskUnitsUnsafe ::+                   (MonadIO m, HasCallStack) =>+                     SVGMaskElement -> m SVGAnimatedEnumeration+getMaskUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMaskUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation>  getMaskUnitsUnchecked ::                       (MonadIO m) => SVGMaskElement -> m SVGAnimatedEnumeration getMaskUnitsUnchecked self@@ -51,6 +77,15 @@   = liftIO (nullableToMaybe <$> (js_getMaskContentUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation> +getMaskContentUnitsUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGMaskElement -> m SVGAnimatedEnumeration+getMaskContentUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getMaskContentUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation>  getMaskContentUnitsUnchecked ::                              (MonadIO m) => SVGMaskElement -> m SVGAnimatedEnumeration getMaskContentUnitsUnchecked self@@ -66,6 +101,14 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) => SVGMaskElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength getXUnchecked self@@ -80,6 +123,14 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) => SVGMaskElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength getYUnchecked self@@ -94,6 +145,14 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) => SVGMaskElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength getWidthUnchecked self@@ -106,6 +165,14 @@ getHeight ::           (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) => SVGMaskElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation>  getHeightUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs view
@@ -1,20 +1,29 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGMatrix-       (js_multiply, multiply, multiply_, multiplyUnchecked, js_inverse,-        inverse, inverse_, inverseUnchecked, js_translate, translate,-        translate_, translateUnchecked, js_scale, scale, scale_,-        scaleUnchecked, js_scaleNonUniform, scaleNonUniform,-        scaleNonUniform_, scaleNonUniformUnchecked, js_rotate, rotate,-        rotate_, rotateUnchecked, js_rotateFromVector, rotateFromVector,-        rotateFromVector_, rotateFromVectorUnchecked, js_flipX, flipX,-        flipX_, flipXUnchecked, js_flipY, flipY, flipY_, flipYUnchecked,-        js_skewX, skewX, skewX_, skewXUnchecked, js_skewY, skewY, skewY_,+       (js_multiply, multiply, multiply_, multiplyUnsafe,+        multiplyUnchecked, js_inverse, inverse, inverse_, inverseUnsafe,+        inverseUnchecked, js_translate, translate, translate_,+        translateUnsafe, translateUnchecked, js_scale, scale, scale_,+        scaleUnsafe, scaleUnchecked, js_scaleNonUniform, scaleNonUniform,+        scaleNonUniform_, scaleNonUniformUnsafe, scaleNonUniformUnchecked,+        js_rotate, rotate, rotate_, rotateUnsafe, rotateUnchecked,+        js_rotateFromVector, rotateFromVector, rotateFromVector_,+        rotateFromVectorUnsafe, rotateFromVectorUnchecked, js_flipX, flipX,+        flipX_, flipXUnsafe, flipXUnchecked, js_flipY, flipY, flipY_,+        flipYUnsafe, flipYUnchecked, js_skewX, skewX, skewX_, skewXUnsafe,+        skewXUnchecked, js_skewY, skewY, skewY_, skewYUnsafe,         skewYUnchecked, js_setA, setA, js_getA, getA, js_setB, setB,         js_getB, getB, js_setC, setC, js_getC, getC, js_setD, setD,         js_getD, getD, js_setE, setE, js_getE, getE, js_setF, setF,-        js_getF, getF, SVGMatrix, castToSVGMatrix, gTypeSVGMatrix)+        js_getF, getF, SVGMatrix(..), gTypeSVGMatrix)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -30,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply         :: SVGMatrix -> Nullable SVGMatrix -> IO (Nullable SVGMatrix)@@ -48,6 +67,16 @@   = liftIO (void (js_multiply (self) (maybeToNullable secondMatrix)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> +multiplyUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix+multiplyUnsafe self secondMatrix+  = liftIO+      ((nullableToMaybe <$>+          (js_multiply (self) (maybeToNullable secondMatrix)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation>  multiplyUnchecked ::                   (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix multiplyUnchecked self secondMatrix@@ -67,6 +96,14 @@ inverse_ self = liftIO (void (js_inverse (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> +inverseUnsafe ::+              (MonadIO m, HasCallStack) => SVGMatrix -> m SVGMatrix+inverseUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_inverse (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation>  inverseUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix inverseUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_inverse (self)))@@ -86,6 +123,15 @@ translate_ self x y = liftIO (void (js_translate (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> +translateUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGMatrix -> Float -> Float -> m SVGMatrix+translateUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_translate (self) x y)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation>  translateUnchecked ::                    (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix translateUnchecked self x y@@ -105,6 +151,14 @@   = liftIO (void (js_scale (self) scaleFactor))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> +scaleUnsafe ::+            (MonadIO m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix+scaleUnsafe self scaleFactor+  = liftIO+      ((nullableToMaybe <$> (js_scale (self) scaleFactor)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation>  scaleUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix scaleUnchecked self scaleFactor   = liftIO@@ -130,6 +184,16 @@       (void (js_scaleNonUniform (self) scaleFactorX scaleFactorY))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> +scaleNonUniformUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGMatrix -> Float -> Float -> m SVGMatrix+scaleNonUniformUnsafe self scaleFactorX scaleFactorY+  = liftIO+      ((nullableToMaybe <$>+          (js_scaleNonUniform (self) scaleFactorX scaleFactorY))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation>  scaleNonUniformUnchecked ::                          (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix scaleNonUniformUnchecked self scaleFactorX scaleFactorY@@ -150,6 +214,14 @@ rotate_ self angle = liftIO (void (js_rotate (self) angle))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> +rotateUnsafe ::+             (MonadIO m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix+rotateUnsafe self angle+  = liftIO+      ((nullableToMaybe <$> (js_rotate (self) angle)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation>  rotateUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix rotateUnchecked self angle   = liftIO (fromJust . nullableToMaybe <$> (js_rotate (self) angle))@@ -171,6 +243,15 @@   = liftIO (void (js_rotateFromVector (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> +rotateFromVectorUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGMatrix -> Float -> Float -> m SVGMatrix+rotateFromVectorUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_rotateFromVector (self) x y)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation>  rotateFromVectorUnchecked ::                           (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix rotateFromVectorUnchecked self x y@@ -189,6 +270,14 @@ flipX_ self = liftIO (void (js_flipX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> +flipXUnsafe ::+            (MonadIO m, HasCallStack) => SVGMatrix -> m SVGMatrix+flipXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_flipX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation>  flipXUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix flipXUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_flipX (self)))@@ -205,6 +294,14 @@ flipY_ self = liftIO (void (js_flipY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> +flipYUnsafe ::+            (MonadIO m, HasCallStack) => SVGMatrix -> m SVGMatrix+flipYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_flipY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation>  flipYUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix flipYUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_flipY (self)))@@ -222,6 +319,14 @@ skewX_ self angle = liftIO (void (js_skewX (self) angle))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> +skewXUnsafe ::+            (MonadIO m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix+skewXUnsafe self angle+  = liftIO+      ((nullableToMaybe <$> (js_skewX (self) angle)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation>  skewXUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix skewXUnchecked self angle   = liftIO (fromJust . nullableToMaybe <$> (js_skewX (self) angle))@@ -237,6 +342,14 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation>  skewY_ :: (MonadIO m) => SVGMatrix -> Float -> m () skewY_ self angle = liftIO (void (js_skewY (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> +skewYUnsafe ::+            (MonadIO m, HasCallStack) => SVGMatrix -> Float -> m SVGMatrix+skewYUnsafe self angle+  = liftIO+      ((nullableToMaybe <$> (js_skewY (self) angle)) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation>  skewYUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix
src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGNumber-       (js_setValue, setValue, js_getValue, getValue, SVGNumber,-        castToSVGNumber, gTypeSVGNumber)+       (js_setValue, setValue, js_getValue, getValue, SVGNumber(..),+        gTypeSVGNumber)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: SVGNumber -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGNumberList        (js_clear, clear, js_initialize, initialize, initialize_,-        initializeUnchecked, js_getItem, getItem, getItem_,-        getItemUnchecked, js_insertItemBefore, insertItemBefore,-        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,-        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,-        removeItem, removeItem_, removeItemUnchecked, js_appendItem,-        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,-        getNumberOfItems, SVGNumberList, castToSVGNumberList,-        gTypeSVGNumberList)+        initializeUnsafe, initializeUnchecked, js_getItem, getItem,+        getItem_, getItemUnsafe, getItemUnchecked, js_insertItemBefore,+        insertItemBefore, insertItemBefore_, insertItemBeforeUnsafe,+        insertItemBeforeUnchecked, js_replaceItem, replaceItem,+        replaceItem_, replaceItemUnsafe, replaceItemUnchecked,+        js_removeItem, removeItem, removeItem_, removeItemUnsafe,+        removeItemUnchecked, js_appendItem, appendItem, appendItem_,+        appendItemUnsafe, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGNumberList(..), gTypeSVGNumberList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         SVGNumberList -> IO ()@@ -53,6 +70,16 @@   = liftIO (void (js_initialize (self) (maybeToNullable item)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> +initializeUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGNumberList -> Maybe SVGNumber -> m SVGNumber+initializeUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_initialize (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation>  initializeUnchecked ::                     (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m SVGNumber initializeUnchecked self item@@ -74,6 +101,14 @@ getItem_ self index = liftIO (void (js_getItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> +getItemUnsafe ::+              (MonadIO m, HasCallStack) => SVGNumberList -> Word -> m SVGNumber+getItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_getItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation>  getItemUnchecked ::                  (MonadIO m) => SVGNumberList -> Word -> m SVGNumber getItemUnchecked self index@@ -101,6 +136,16 @@       (void (js_insertItemBefore (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> +insertItemBeforeUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber+insertItemBeforeUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_insertItemBefore (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation>  insertItemBeforeUnchecked ::                           (MonadIO m) =>                             SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber@@ -131,6 +176,16 @@       (void (js_replaceItem (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> +replaceItemUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber+replaceItemUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_replaceItem (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation>  replaceItemUnchecked ::                      (MonadIO m) =>                        SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber@@ -153,6 +208,14 @@ removeItem_ self index = liftIO (void (js_removeItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> +removeItemUnsafe ::+                 (MonadIO m, HasCallStack) => SVGNumberList -> Word -> m SVGNumber+removeItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_removeItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation>  removeItemUnchecked ::                     (MonadIO m) => SVGNumberList -> Word -> m SVGNumber removeItemUnchecked self index@@ -176,6 +239,16 @@             (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m () appendItem_ self item   = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> +appendItemUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGNumberList -> Maybe SVGNumber -> m SVGNumber+appendItemUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_appendItem (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation>  appendItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPaint        (js_setUri, setUri, js_setPaint, setPaint,         pattern SVG_PAINTTYPE_UNKNOWN, pattern SVG_PAINTTYPE_RGBCOLOR,@@ -9,9 +14,10 @@         pattern SVG_PAINTTYPE_URI_RGBCOLOR,         pattern SVG_PAINTTYPE_URI_RGBCOLOR_ICCCOLOR,         pattern SVG_PAINTTYPE_URI, js_getPaintType, getPaintType,-        js_getUri, getUri, SVGPaint, castToSVGPaint, gTypeSVGPaint)+        js_getUri, getUri, SVGPaint(..), gTypeSVGPaint)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -27,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"setUri\"]($2)" js_setUri ::         SVGPaint -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs view
@@ -1,80 +1,107 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathElement        (js_getTotalLength, getTotalLength, getTotalLength_,         js_getPointAtLength, getPointAtLength, getPointAtLength_,-        getPointAtLengthUnchecked, js_getPathSegAtLength,-        getPathSegAtLength, getPathSegAtLength_,+        getPointAtLengthUnsafe, getPointAtLengthUnchecked,+        js_getPathSegAtLength, getPathSegAtLength, getPathSegAtLength_,         js_createSVGPathSegClosePath, createSVGPathSegClosePath,-        createSVGPathSegClosePath_, createSVGPathSegClosePathUnchecked,-        js_createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs,-        createSVGPathSegMovetoAbs_, createSVGPathSegMovetoAbsUnchecked,-        js_createSVGPathSegMovetoRel, createSVGPathSegMovetoRel,-        createSVGPathSegMovetoRel_, createSVGPathSegMovetoRelUnchecked,-        js_createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs,-        createSVGPathSegLinetoAbs_, createSVGPathSegLinetoAbsUnchecked,-        js_createSVGPathSegLinetoRel, createSVGPathSegLinetoRel,-        createSVGPathSegLinetoRel_, createSVGPathSegLinetoRelUnchecked,+        createSVGPathSegClosePath_, createSVGPathSegClosePathUnsafe,+        createSVGPathSegClosePathUnchecked, js_createSVGPathSegMovetoAbs,+        createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs_,+        createSVGPathSegMovetoAbsUnsafe,+        createSVGPathSegMovetoAbsUnchecked, js_createSVGPathSegMovetoRel,+        createSVGPathSegMovetoRel, createSVGPathSegMovetoRel_,+        createSVGPathSegMovetoRelUnsafe,+        createSVGPathSegMovetoRelUnchecked, js_createSVGPathSegLinetoAbs,+        createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs_,+        createSVGPathSegLinetoAbsUnsafe,+        createSVGPathSegLinetoAbsUnchecked, js_createSVGPathSegLinetoRel,+        createSVGPathSegLinetoRel, createSVGPathSegLinetoRel_,+        createSVGPathSegLinetoRelUnsafe,+        createSVGPathSegLinetoRelUnchecked,         js_createSVGPathSegCurvetoCubicAbs,         createSVGPathSegCurvetoCubicAbs, createSVGPathSegCurvetoCubicAbs_,+        createSVGPathSegCurvetoCubicAbsUnsafe,         createSVGPathSegCurvetoCubicAbsUnchecked,         js_createSVGPathSegCurvetoCubicRel,         createSVGPathSegCurvetoCubicRel, createSVGPathSegCurvetoCubicRel_,+        createSVGPathSegCurvetoCubicRelUnsafe,         createSVGPathSegCurvetoCubicRelUnchecked,         js_createSVGPathSegCurvetoQuadraticAbs,         createSVGPathSegCurvetoQuadraticAbs,         createSVGPathSegCurvetoQuadraticAbs_,+        createSVGPathSegCurvetoQuadraticAbsUnsafe,         createSVGPathSegCurvetoQuadraticAbsUnchecked,         js_createSVGPathSegCurvetoQuadraticRel,         createSVGPathSegCurvetoQuadraticRel,         createSVGPathSegCurvetoQuadraticRel_,+        createSVGPathSegCurvetoQuadraticRelUnsafe,         createSVGPathSegCurvetoQuadraticRelUnchecked,         js_createSVGPathSegArcAbs, createSVGPathSegArcAbs,-        createSVGPathSegArcAbs_, createSVGPathSegArcAbsUnchecked,-        js_createSVGPathSegArcRel, createSVGPathSegArcRel,-        createSVGPathSegArcRel_, createSVGPathSegArcRelUnchecked,+        createSVGPathSegArcAbs_, createSVGPathSegArcAbsUnsafe,+        createSVGPathSegArcAbsUnchecked, js_createSVGPathSegArcRel,+        createSVGPathSegArcRel, createSVGPathSegArcRel_,+        createSVGPathSegArcRelUnsafe, createSVGPathSegArcRelUnchecked,         js_createSVGPathSegLinetoHorizontalAbs,         createSVGPathSegLinetoHorizontalAbs,         createSVGPathSegLinetoHorizontalAbs_,+        createSVGPathSegLinetoHorizontalAbsUnsafe,         createSVGPathSegLinetoHorizontalAbsUnchecked,         js_createSVGPathSegLinetoHorizontalRel,         createSVGPathSegLinetoHorizontalRel,         createSVGPathSegLinetoHorizontalRel_,+        createSVGPathSegLinetoHorizontalRelUnsafe,         createSVGPathSegLinetoHorizontalRelUnchecked,         js_createSVGPathSegLinetoVerticalAbs,         createSVGPathSegLinetoVerticalAbs,         createSVGPathSegLinetoVerticalAbs_,+        createSVGPathSegLinetoVerticalAbsUnsafe,         createSVGPathSegLinetoVerticalAbsUnchecked,         js_createSVGPathSegLinetoVerticalRel,         createSVGPathSegLinetoVerticalRel,         createSVGPathSegLinetoVerticalRel_,+        createSVGPathSegLinetoVerticalRelUnsafe,         createSVGPathSegLinetoVerticalRelUnchecked,         js_createSVGPathSegCurvetoCubicSmoothAbs,         createSVGPathSegCurvetoCubicSmoothAbs,         createSVGPathSegCurvetoCubicSmoothAbs_,+        createSVGPathSegCurvetoCubicSmoothAbsUnsafe,         createSVGPathSegCurvetoCubicSmoothAbsUnchecked,         js_createSVGPathSegCurvetoCubicSmoothRel,         createSVGPathSegCurvetoCubicSmoothRel,         createSVGPathSegCurvetoCubicSmoothRel_,+        createSVGPathSegCurvetoCubicSmoothRelUnsafe,         createSVGPathSegCurvetoCubicSmoothRelUnchecked,         js_createSVGPathSegCurvetoQuadraticSmoothAbs,         createSVGPathSegCurvetoQuadraticSmoothAbs,         createSVGPathSegCurvetoQuadraticSmoothAbs_,+        createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe,         createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked,         js_createSVGPathSegCurvetoQuadraticSmoothRel,         createSVGPathSegCurvetoQuadraticSmoothRel,         createSVGPathSegCurvetoQuadraticSmoothRel_,+        createSVGPathSegCurvetoQuadraticSmoothRelUnsafe,         createSVGPathSegCurvetoQuadraticSmoothRelUnchecked,-        js_getPathLength, getPathLength, getPathLengthUnchecked,-        js_getPathSegList, getPathSegList, getPathSegListUnchecked,+        js_getPathLength, getPathLength, getPathLengthUnsafe,+        getPathLengthUnchecked, js_getPathSegList, getPathSegList,+        getPathSegListUnsafe, getPathSegListUnchecked,         js_getNormalizedPathSegList, getNormalizedPathSegList,-        getNormalizedPathSegListUnchecked, js_getAnimatedPathSegList,-        getAnimatedPathSegList, getAnimatedPathSegListUnchecked,+        getNormalizedPathSegListUnsafe, getNormalizedPathSegListUnchecked,+        js_getAnimatedPathSegList, getAnimatedPathSegList,+        getAnimatedPathSegListUnsafe, getAnimatedPathSegListUnchecked,         js_getAnimatedNormalizedPathSegList,         getAnimatedNormalizedPathSegList,-        getAnimatedNormalizedPathSegListUnchecked, SVGPathElement,-        castToSVGPathElement, gTypeSVGPathElement)+        getAnimatedNormalizedPathSegListUnsafe,+        getAnimatedNormalizedPathSegListUnchecked, SVGPathElement(..),+        gTypeSVGPathElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -90,6 +117,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"getTotalLength\"]()"         js_getTotalLength :: SVGPathElement -> IO Float@@ -119,6 +156,14 @@   = liftIO (void (js_getPointAtLength (self) distance))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> +getPointAtLengthUnsafe ::+                       (MonadIO m, HasCallStack) => SVGPathElement -> Float -> m SVGPoint+getPointAtLengthUnsafe self distance+  = liftIO+      ((nullableToMaybe <$> (js_getPointAtLength (self) distance)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation>  getPointAtLengthUnchecked ::                           (MonadIO m) => SVGPathElement -> Float -> m SVGPoint getPointAtLengthUnchecked self distance@@ -158,6 +203,15 @@   = liftIO (void (js_createSVGPathSegClosePath (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> +createSVGPathSegClosePathUnsafe ::+                                (MonadIO m, HasCallStack) =>+                                  SVGPathElement -> m SVGPathSegClosePath+createSVGPathSegClosePathUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPathSegClosePath (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation>  createSVGPathSegClosePathUnchecked ::                                    (MonadIO m) => SVGPathElement -> m SVGPathSegClosePath createSVGPathSegClosePathUnchecked self@@ -186,6 +240,15 @@   = liftIO (void (js_createSVGPathSegMovetoAbs (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> +createSVGPathSegMovetoAbsUnsafe ::+                                (MonadIO m, HasCallStack) =>+                                  SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs+createSVGPathSegMovetoAbsUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPathSegMovetoAbs (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation>  createSVGPathSegMovetoAbsUnchecked ::                                    (MonadIO m) =>                                      SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs@@ -215,6 +278,15 @@   = liftIO (void (js_createSVGPathSegMovetoRel (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> +createSVGPathSegMovetoRelUnsafe ::+                                (MonadIO m, HasCallStack) =>+                                  SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel+createSVGPathSegMovetoRelUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPathSegMovetoRel (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation>  createSVGPathSegMovetoRelUnchecked ::                                    (MonadIO m) =>                                      SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel@@ -244,6 +316,15 @@   = liftIO (void (js_createSVGPathSegLinetoAbs (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> +createSVGPathSegLinetoAbsUnsafe ::+                                (MonadIO m, HasCallStack) =>+                                  SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs+createSVGPathSegLinetoAbsUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPathSegLinetoAbs (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation>  createSVGPathSegLinetoAbsUnchecked ::                                    (MonadIO m) =>                                      SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs@@ -273,6 +354,15 @@   = liftIO (void (js_createSVGPathSegLinetoRel (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> +createSVGPathSegLinetoRelUnsafe ::+                                (MonadIO m, HasCallStack) =>+                                  SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel+createSVGPathSegLinetoRelUnsafe self x y+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPathSegLinetoRel (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation>  createSVGPathSegLinetoRelUnchecked ::                                    (MonadIO m) =>                                      SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel@@ -314,6 +404,21 @@       (void (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> +createSVGPathSegCurvetoCubicAbsUnsafe ::+                                      (MonadIO m, HasCallStack) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float ->+                                                  Float -> Float -> m SVGPathSegCurvetoCubicAbs+createSVGPathSegCurvetoCubicAbsUnsafe self x y x1 y1 x2 y2+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation>  createSVGPathSegCurvetoCubicAbsUnchecked ::                                          (MonadIO m) =>                                            SVGPathElement ->@@ -360,6 +465,21 @@       (void (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> +createSVGPathSegCurvetoCubicRelUnsafe ::+                                      (MonadIO m, HasCallStack) =>+                                        SVGPathElement ->+                                          Float ->+                                            Float ->+                                              Float ->+                                                Float ->+                                                  Float -> Float -> m SVGPathSegCurvetoCubicRel+createSVGPathSegCurvetoCubicRelUnsafe self x y x1 y1 x2 y2+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation>  createSVGPathSegCurvetoCubicRelUnchecked ::                                          (MonadIO m) =>                                            SVGPathElement ->@@ -403,6 +523,19 @@       (void (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> +createSVGPathSegCurvetoQuadraticAbsUnsafe ::+                                          (MonadIO m, HasCallStack) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  Float -> Float -> m SVGPathSegCurvetoQuadraticAbs+createSVGPathSegCurvetoQuadraticAbsUnsafe self x y x1 y1+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation>  createSVGPathSegCurvetoQuadraticAbsUnchecked ::                                              (MonadIO m) =>                                                SVGPathElement ->@@ -445,6 +578,19 @@       (void (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> +createSVGPathSegCurvetoQuadraticRelUnsafe ::+                                          (MonadIO m, HasCallStack) =>+                                            SVGPathElement ->+                                              Float ->+                                                Float ->+                                                  Float -> Float -> m SVGPathSegCurvetoQuadraticRel+createSVGPathSegCurvetoQuadraticRelUnsafe self x y x1 y1+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation>  createSVGPathSegCurvetoQuadraticRelUnchecked ::                                              (MonadIO m) =>                                                SVGPathElement ->@@ -492,6 +638,21 @@             sweepFlag))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> +createSVGPathSegArcAbsUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGPathElement ->+                                 Float ->+                                   Float ->+                                     Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcAbs+createSVGPathSegArcAbsUnsafe self x y r1 r2 angle largeArcFlag+  sweepFlag+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag+             sweepFlag))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation>  createSVGPathSegArcAbsUnchecked ::                                 (MonadIO m) =>                                   SVGPathElement ->@@ -541,6 +702,21 @@             sweepFlag))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> +createSVGPathSegArcRelUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGPathElement ->+                                 Float ->+                                   Float ->+                                     Float -> Float -> Float -> Bool -> Bool -> m SVGPathSegArcRel+createSVGPathSegArcRelUnsafe self x y r1 r2 angle largeArcFlag+  sweepFlag+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag+             sweepFlag))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation>  createSVGPathSegArcRelUnchecked ::                                 (MonadIO m) =>                                   SVGPathElement ->@@ -578,6 +754,17 @@   = liftIO (void (js_createSVGPathSegLinetoHorizontalAbs (self) x))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> +createSVGPathSegLinetoHorizontalAbsUnsafe ::+                                          (MonadIO m, HasCallStack) =>+                                            SVGPathElement ->+                                              Float -> m SVGPathSegLinetoHorizontalAbs+createSVGPathSegLinetoHorizontalAbsUnsafe self x+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegLinetoHorizontalAbs (self) x))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation>  createSVGPathSegLinetoHorizontalAbsUnchecked ::                                              (MonadIO m) =>                                                SVGPathElement ->@@ -610,6 +797,17 @@   = liftIO (void (js_createSVGPathSegLinetoHorizontalRel (self) x))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> +createSVGPathSegLinetoHorizontalRelUnsafe ::+                                          (MonadIO m, HasCallStack) =>+                                            SVGPathElement ->+                                              Float -> m SVGPathSegLinetoHorizontalRel+createSVGPathSegLinetoHorizontalRelUnsafe self x+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegLinetoHorizontalRel (self) x))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation>  createSVGPathSegLinetoHorizontalRelUnchecked ::                                              (MonadIO m) =>                                                SVGPathElement ->@@ -641,6 +839,16 @@   = liftIO (void (js_createSVGPathSegLinetoVerticalAbs (self) y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> +createSVGPathSegLinetoVerticalAbsUnsafe ::+                                        (MonadIO m, HasCallStack) =>+                                          SVGPathElement -> Float -> m SVGPathSegLinetoVerticalAbs+createSVGPathSegLinetoVerticalAbsUnsafe self y+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegLinetoVerticalAbs (self) y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation>  createSVGPathSegLinetoVerticalAbsUnchecked ::                                            (MonadIO m) =>                                              SVGPathElement ->@@ -672,6 +880,16 @@   = liftIO (void (js_createSVGPathSegLinetoVerticalRel (self) y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> +createSVGPathSegLinetoVerticalRelUnsafe ::+                                        (MonadIO m, HasCallStack) =>+                                          SVGPathElement -> Float -> m SVGPathSegLinetoVerticalRel+createSVGPathSegLinetoVerticalRelUnsafe self y+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegLinetoVerticalRel (self) y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation>  createSVGPathSegLinetoVerticalRelUnchecked ::                                            (MonadIO m) =>                                              SVGPathElement ->@@ -711,6 +929,20 @@       (void (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> +createSVGPathSegCurvetoCubicSmoothAbsUnsafe ::+                                            (MonadIO m, HasCallStack) =>+                                              SVGPathElement ->+                                                Float ->+                                                  Float ->+                                                    Float ->+                                                      Float -> m SVGPathSegCurvetoCubicSmoothAbs+createSVGPathSegCurvetoCubicSmoothAbsUnsafe self x y x2 y2+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation>  createSVGPathSegCurvetoCubicSmoothAbsUnchecked ::                                                (MonadIO m) =>                                                  SVGPathElement ->@@ -753,6 +985,20 @@       (void (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> +createSVGPathSegCurvetoCubicSmoothRelUnsafe ::+                                            (MonadIO m, HasCallStack) =>+                                              SVGPathElement ->+                                                Float ->+                                                  Float ->+                                                    Float ->+                                                      Float -> m SVGPathSegCurvetoCubicSmoothRel+createSVGPathSegCurvetoCubicSmoothRelUnsafe self x y x2 y2+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation>  createSVGPathSegCurvetoCubicSmoothRelUnchecked ::                                                (MonadIO m) =>                                                  SVGPathElement ->@@ -791,6 +1037,18 @@       (void (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> +createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe ::+                                                (MonadIO m, HasCallStack) =>+                                                  SVGPathElement ->+                                                    Float ->+                                                      Float -> m SVGPathSegCurvetoQuadraticSmoothAbs+createSVGPathSegCurvetoQuadraticSmoothAbsUnsafe self x y+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation>  createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked ::                                                    (MonadIO m) =>                                                      SVGPathElement ->@@ -828,6 +1086,18 @@       (void (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> +createSVGPathSegCurvetoQuadraticSmoothRelUnsafe ::+                                                (MonadIO m, HasCallStack) =>+                                                  SVGPathElement ->+                                                    Float ->+                                                      Float -> m SVGPathSegCurvetoQuadraticSmoothRel+createSVGPathSegCurvetoQuadraticSmoothRelUnsafe self x y+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation>  createSVGPathSegCurvetoQuadraticSmoothRelUnchecked ::                                                    (MonadIO m) =>                                                      SVGPathElement ->@@ -850,6 +1120,14 @@   = liftIO (nullableToMaybe <$> (js_getPathLength (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation> +getPathLengthUnsafe ::+                    (MonadIO m, HasCallStack) => SVGPathElement -> m SVGAnimatedNumber+getPathLengthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPathLength (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation>  getPathLengthUnchecked ::                        (MonadIO m) => SVGPathElement -> m SVGAnimatedNumber getPathLengthUnchecked self@@ -865,6 +1143,14 @@   = liftIO (nullableToMaybe <$> (js_getPathSegList (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation> +getPathSegListUnsafe ::+                     (MonadIO m, HasCallStack) => SVGPathElement -> m SVGPathSegList+getPathSegListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPathSegList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation>  getPathSegListUnchecked ::                         (MonadIO m) => SVGPathElement -> m SVGPathSegList getPathSegListUnchecked self@@ -882,6 +1168,14 @@   = liftIO (nullableToMaybe <$> (js_getNormalizedPathSegList (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation> +getNormalizedPathSegListUnsafe ::+                               (MonadIO m, HasCallStack) => SVGPathElement -> m SVGPathSegList+getNormalizedPathSegListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getNormalizedPathSegList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation>  getNormalizedPathSegListUnchecked ::                                   (MonadIO m) => SVGPathElement -> m SVGPathSegList getNormalizedPathSegListUnchecked self@@ -900,6 +1194,14 @@   = liftIO (nullableToMaybe <$> (js_getAnimatedPathSegList (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation> +getAnimatedPathSegListUnsafe ::+                             (MonadIO m, HasCallStack) => SVGPathElement -> m SVGPathSegList+getAnimatedPathSegListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimatedPathSegList (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation>  getAnimatedPathSegListUnchecked ::                                 (MonadIO m) => SVGPathElement -> m SVGPathSegList getAnimatedPathSegListUnchecked self@@ -917,6 +1219,15 @@ getAnimatedNormalizedPathSegList self   = liftIO       (nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation> +getAnimatedNormalizedPathSegListUnsafe ::+                                       (MonadIO m, HasCallStack) =>+                                         SVGPathElement -> m SVGPathSegList+getAnimatedNormalizedPathSegListUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation>  getAnimatedNormalizedPathSegListUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSeg        (pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH,         pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL,@@ -16,10 +21,10 @@         pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS,         pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, js_getPathSegType,         getPathSegType, js_getPathSegTypeAsLetter, getPathSegTypeAsLetter,-        SVGPathSeg, castToSVGPathSeg, gTypeSVGPathSeg, IsSVGPathSeg,-        toSVGPathSeg)+        SVGPathSeg(..), gTypeSVGPathSeg, IsSVGPathSeg, toSVGPathSeg)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -35,6 +40,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern PATHSEG_UNKNOWN = 0 pattern PATHSEG_CLOSEPATH = 1 pattern PATHSEG_MOVETO_ABS = 2
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2,         js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag,         setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag,         js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag,-        SVGPathSegArcAbs, castToSVGPathSegArcAbs, gTypeSVGPathSegArcAbs)+        SVGPathSegArcAbs(..), gTypeSVGPathSegArcAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegArcAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegArcRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setR1, setR1, js_getR1, getR1, js_setR2, setR2, js_getR2, getR2,         js_setAngle, setAngle, js_getAngle, getAngle, js_setLargeArcFlag,         setLargeArcFlag, js_getLargeArcFlag, getLargeArcFlag,         js_setSweepFlag, setSweepFlag, js_getSweepFlag, getSweepFlag,-        SVGPathSegArcRel, castToSVGPathSegArcRel, gTypeSVGPathSegArcRel)+        SVGPathSegArcRel(..), gTypeSVGPathSegArcRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegArcRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,         js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,-        SVGPathSegCurvetoCubicAbs, castToSVGPathSegCurvetoCubicAbs,-        gTypeSVGPathSegCurvetoCubicAbs)+        SVGPathSegCurvetoCubicAbs(..), gTypeSVGPathSegCurvetoCubicAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoCubicAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,         js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,-        SVGPathSegCurvetoCubicRel, castToSVGPathSegCurvetoCubicRel,-        gTypeSVGPathSegCurvetoCubicRel)+        SVGPathSegCurvetoCubicRel(..), gTypeSVGPathSegCurvetoCubicRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoCubicRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,-        SVGPathSegCurvetoCubicSmoothAbs,-        castToSVGPathSegCurvetoCubicSmoothAbs,+        SVGPathSegCurvetoCubicSmoothAbs(..),         gTypeSVGPathSegCurvetoCubicSmoothAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs view
@@ -1,12 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoCubicSmoothRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX2, setX2, js_getX2, getX2, js_setY2, setY2, js_getY2, getY2,-        SVGPathSegCurvetoCubicSmoothRel,-        castToSVGPathSegCurvetoCubicSmoothRel,+        SVGPathSegCurvetoCubicSmoothRel(..),         gTypeSVGPathSegCurvetoCubicSmoothRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,-        SVGPathSegCurvetoQuadraticAbs, castToSVGPathSegCurvetoQuadraticAbs,+        SVGPathSegCurvetoQuadraticAbs(..),         gTypeSVGPathSegCurvetoQuadraticAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs view
@@ -1,11 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setX1, setX1, js_getX1, getX1, js_setY1, setY1, js_getY1, getY1,-        SVGPathSegCurvetoQuadraticRel, castToSVGPathSegCurvetoQuadraticRel,+        SVGPathSegCurvetoQuadraticRel(..),         gTypeSVGPathSegCurvetoQuadraticRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoQuadraticRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegCurvetoQuadraticSmoothAbs,-        castToSVGPathSegCurvetoQuadraticSmoothAbs,+        SVGPathSegCurvetoQuadraticSmoothAbs(..),         gTypeSVGPathSegCurvetoQuadraticSmoothAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegCurvetoQuadraticSmoothRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegCurvetoQuadraticSmoothRel,-        castToSVGPathSegCurvetoQuadraticSmoothRel,+        SVGPathSegCurvetoQuadraticSmoothRel(..),         gTypeSVGPathSegCurvetoQuadraticSmoothRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegLinetoAbs, castToSVGPathSegLinetoAbs,-        gTypeSVGPathSegLinetoAbs)+        SVGPathSegLinetoAbs(..), gTypeSVGPathSegLinetoAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegLinetoAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalAbs-       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalAbs,-        castToSVGPathSegLinetoHorizontalAbs,+       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalAbs(..),         gTypeSVGPathSegLinetoHorizontalAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegLinetoHorizontalAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoHorizontalRel-       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalRel,-        castToSVGPathSegLinetoHorizontalRel,+       (js_setX, setX, js_getX, getX, SVGPathSegLinetoHorizontalRel(..),         gTypeSVGPathSegLinetoHorizontalRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegLinetoHorizontalRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegLinetoRel, castToSVGPathSegLinetoRel,-        gTypeSVGPathSegLinetoRel)+        SVGPathSegLinetoRel(..), gTypeSVGPathSegLinetoRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegLinetoRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalAbs-       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalAbs,-        castToSVGPathSegLinetoVerticalAbs,+       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalAbs(..),         gTypeSVGPathSegLinetoVerticalAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::         SVGPathSegLinetoVerticalAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegLinetoVerticalRel-       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalRel,-        castToSVGPathSegLinetoVerticalRel,+       (js_setY, setY, js_getY, getY, SVGPathSegLinetoVerticalRel(..),         gTypeSVGPathSegLinetoVerticalRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::         SVGPathSegLinetoVerticalRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegList        (js_clear, clear, js_initialize, initialize, initialize_,-        initializeUnchecked, js_getItem, getItem, getItem_,-        getItemUnchecked, js_insertItemBefore, insertItemBefore,-        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,-        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,-        removeItem, removeItem_, removeItemUnchecked, js_appendItem,-        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,-        getNumberOfItems, SVGPathSegList, castToSVGPathSegList,-        gTypeSVGPathSegList)+        initializeUnsafe, initializeUnchecked, js_getItem, getItem,+        getItem_, getItemUnsafe, getItemUnchecked, js_insertItemBefore,+        insertItemBefore, insertItemBefore_, insertItemBeforeUnsafe,+        insertItemBeforeUnchecked, js_replaceItem, replaceItem,+        replaceItem_, replaceItemUnsafe, replaceItemUnchecked,+        js_removeItem, removeItem, removeItem_, removeItemUnsafe,+        removeItemUnchecked, js_appendItem, appendItem, appendItem_,+        appendItemUnsafe, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGPathSegList(..), gTypeSVGPathSegList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         SVGPathSegList -> IO ()@@ -59,6 +76,17 @@             (maybeToNullable (fmap toSVGPathSeg newItem))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> +initializeUnsafe ::+                 (MonadIO m, IsSVGPathSeg newItem, HasCallStack) =>+                   SVGPathSegList -> Maybe newItem -> m SVGPathSeg+initializeUnsafe self newItem+  = liftIO+      ((nullableToMaybe <$>+          (js_initialize (self)+             (maybeToNullable (fmap toSVGPathSeg newItem))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation>  initializeUnchecked ::                     (MonadIO m, IsSVGPathSeg newItem) =>                       SVGPathSegList -> Maybe newItem -> m SVGPathSeg@@ -82,6 +110,14 @@ getItem_ self index = liftIO (void (js_getItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> +getItemUnsafe ::+              (MonadIO m, HasCallStack) => SVGPathSegList -> Word -> m SVGPathSeg+getItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_getItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation>  getItemUnchecked ::                  (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg getItemUnchecked self index@@ -115,6 +151,18 @@             index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> +insertItemBeforeUnsafe ::+                       (MonadIO m, IsSVGPathSeg newItem, HasCallStack) =>+                         SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg+insertItemBeforeUnsafe self newItem index+  = liftIO+      ((nullableToMaybe <$>+          (js_insertItemBefore (self)+             (maybeToNullable (fmap toSVGPathSeg newItem))+             index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation>  insertItemBeforeUnchecked ::                           (MonadIO m, IsSVGPathSeg newItem) =>                             SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg@@ -153,6 +201,18 @@             index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> +replaceItemUnsafe ::+                  (MonadIO m, IsSVGPathSeg newItem, HasCallStack) =>+                    SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg+replaceItemUnsafe self newItem index+  = liftIO+      ((nullableToMaybe <$>+          (js_replaceItem (self)+             (maybeToNullable (fmap toSVGPathSeg newItem))+             index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation>  replaceItemUnchecked ::                      (MonadIO m, IsSVGPathSeg newItem) =>                        SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg@@ -177,6 +237,14 @@ removeItem_ self index = liftIO (void (js_removeItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> +removeItemUnsafe ::+                 (MonadIO m, HasCallStack) => SVGPathSegList -> Word -> m SVGPathSeg+removeItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_removeItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation>  removeItemUnchecked ::                     (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg removeItemUnchecked self index@@ -206,6 +274,17 @@       (void          (js_appendItem (self)             (maybeToNullable (fmap toSVGPathSeg newItem))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> +appendItemUnsafe ::+                 (MonadIO m, IsSVGPathSeg newItem, HasCallStack) =>+                   SVGPathSegList -> Maybe newItem -> m SVGPathSeg+appendItemUnsafe self newItem+  = liftIO+      ((nullableToMaybe <$>+          (js_appendItem (self)+             (maybeToNullable (fmap toSVGPathSeg newItem))))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation>  appendItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoAbs        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegMovetoAbs, castToSVGPathSegMovetoAbs,-        gTypeSVGPathSegMovetoAbs)+        SVGPathSegMovetoAbs(..), gTypeSVGPathSegMovetoAbs)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegMovetoAbs -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs view
@@ -1,10 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegMovetoRel        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,-        SVGPathSegMovetoRel, castToSVGPathSegMovetoRel,-        gTypeSVGPathSegMovetoRel)+        SVGPathSegMovetoRel(..), gTypeSVGPathSegMovetoRel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGPathSegMovetoRel -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs view
@@ -1,14 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPatternElement-       (js_getPatternUnits, getPatternUnits, getPatternUnitsUnchecked,-        js_getPatternContentUnits, getPatternContentUnits,+       (js_getPatternUnits, getPatternUnits, getPatternUnitsUnsafe,+        getPatternUnitsUnchecked, js_getPatternContentUnits,+        getPatternContentUnits, getPatternContentUnitsUnsafe,         getPatternContentUnitsUnchecked, js_getPatternTransform,-        getPatternTransform, getPatternTransformUnchecked, js_getX, getX,-        getXUnchecked, js_getY, getY, getYUnchecked, js_getWidth, getWidth,-        getWidthUnchecked, js_getHeight, getHeight, getHeightUnchecked,-        SVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement)+        getPatternTransform, getPatternTransformUnsafe,+        getPatternTransformUnchecked, js_getX, getX, getXUnsafe,+        getXUnchecked, js_getY, getY, getYUnsafe, getYUnchecked,+        js_getWidth, getWidth, getWidthUnsafe, getWidthUnchecked,+        js_getHeight, getHeight, getHeightUnsafe, getHeightUnchecked,+        SVGPatternElement(..), gTypeSVGPatternElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -24,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"patternUnits\"]"         js_getPatternUnits ::@@ -37,6 +56,15 @@   = liftIO (nullableToMaybe <$> (js_getPatternUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation> +getPatternUnitsUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGPatternElement -> m SVGAnimatedEnumeration+getPatternUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPatternUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation>  getPatternUnitsUnchecked ::                          (MonadIO m) => SVGPatternElement -> m SVGAnimatedEnumeration getPatternUnitsUnchecked self@@ -55,6 +83,15 @@   = liftIO (nullableToMaybe <$> (js_getPatternContentUnits (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation> +getPatternContentUnitsUnsafe ::+                             (MonadIO m, HasCallStack) =>+                               SVGPatternElement -> m SVGAnimatedEnumeration+getPatternContentUnitsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPatternContentUnits (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation>  getPatternContentUnitsUnchecked ::                                 (MonadIO m) => SVGPatternElement -> m SVGAnimatedEnumeration getPatternContentUnitsUnchecked self@@ -73,6 +110,15 @@   = liftIO (nullableToMaybe <$> (js_getPatternTransform (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation> +getPatternTransformUnsafe ::+                          (MonadIO m, HasCallStack) =>+                            SVGPatternElement -> m SVGAnimatedTransformList+getPatternTransformUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPatternTransform (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation>  getPatternTransformUnchecked ::                              (MonadIO m) => SVGPatternElement -> m SVGAnimatedTransformList getPatternTransformUnchecked self@@ -88,6 +134,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGPatternElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength getXUnchecked self@@ -102,6 +157,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGPatternElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength getYUnchecked self@@ -116,6 +180,15 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) =>+                 SVGPatternElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength getWidthUnchecked self@@ -128,6 +201,15 @@ getHeight ::           (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) =>+                  SVGPatternElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation>  getHeightUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPoint        (js_matrixTransform, matrixTransform, matrixTransform_,-        matrixTransformUnchecked, js_setX, setX, js_getX, getX, js_setY,-        setY, js_getY, getY, SVGPoint, castToSVGPoint, gTypeSVGPoint)+        matrixTransformUnsafe, matrixTransformUnchecked, js_setX, setX,+        js_getX, getX, js_setY, setY, js_getY, getY, SVGPoint(..),+        gTypeSVGPoint)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"matrixTransform\"]($2)"         js_matrixTransform ::@@ -39,6 +56,16 @@ matrixTransform_ self matrix   = liftIO       (void (js_matrixTransform (self) (maybeToNullable matrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> +matrixTransformUnsafe ::+                      (MonadIO m, HasCallStack) =>+                        SVGPoint -> Maybe SVGMatrix -> m SVGPoint+matrixTransformUnsafe self matrix+  = liftIO+      ((nullableToMaybe <$>+          (js_matrixTransform (self) (maybeToNullable matrix)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation>  matrixTransformUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs view
@@ -1,16 +1,23 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPointList        (js_clear, clear, js_initialize, initialize, initialize_,-        initializeUnchecked, js_getItem, getItem, getItem_,-        getItemUnchecked, js_insertItemBefore, insertItemBefore,-        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,-        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,-        removeItem, removeItem_, removeItemUnchecked, js_appendItem,-        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,-        getNumberOfItems, SVGPointList, castToSVGPointList,-        gTypeSVGPointList)+        initializeUnsafe, initializeUnchecked, js_getItem, getItem,+        getItem_, getItemUnsafe, getItemUnchecked, js_insertItemBefore,+        insertItemBefore, insertItemBefore_, insertItemBeforeUnsafe,+        insertItemBeforeUnchecked, js_replaceItem, replaceItem,+        replaceItem_, replaceItemUnsafe, replaceItemUnchecked,+        js_removeItem, removeItem, removeItem_, removeItemUnsafe,+        removeItemUnchecked, js_appendItem, appendItem, appendItem_,+        appendItemUnsafe, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGPointList(..), gTypeSVGPointList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -26,6 +33,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         SVGPointList -> IO ()@@ -52,6 +69,16 @@   = liftIO (void (js_initialize (self) (maybeToNullable item)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> +initializeUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGPointList -> Maybe SVGPoint -> m SVGPoint+initializeUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_initialize (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation>  initializeUnchecked ::                     (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m SVGPoint initializeUnchecked self item@@ -73,6 +100,14 @@ getItem_ self index = liftIO (void (js_getItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> +getItemUnsafe ::+              (MonadIO m, HasCallStack) => SVGPointList -> Word -> m SVGPoint+getItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_getItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation>  getItemUnchecked ::                  (MonadIO m) => SVGPointList -> Word -> m SVGPoint getItemUnchecked self index@@ -99,6 +134,16 @@       (void (js_insertItemBefore (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> +insertItemBeforeUnsafe ::+                       (MonadIO m, HasCallStack) =>+                         SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint+insertItemBeforeUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_insertItemBefore (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation>  insertItemBeforeUnchecked ::                           (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint insertItemBeforeUnchecked self item index@@ -127,6 +172,16 @@       (void (js_replaceItem (self) (maybeToNullable item) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> +replaceItemUnsafe ::+                  (MonadIO m, HasCallStack) =>+                    SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint+replaceItemUnsafe self item index+  = liftIO+      ((nullableToMaybe <$>+          (js_replaceItem (self) (maybeToNullable item) index))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation>  replaceItemUnchecked ::                      (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint replaceItemUnchecked self item index@@ -148,6 +203,14 @@ removeItem_ self index = liftIO (void (js_removeItem (self) index))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> +removeItemUnsafe ::+                 (MonadIO m, HasCallStack) => SVGPointList -> Word -> m SVGPoint+removeItemUnsafe self index+  = liftIO+      ((nullableToMaybe <$> (js_removeItem (self) index)) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation>  removeItemUnchecked ::                     (MonadIO m) => SVGPointList -> Word -> m SVGPoint removeItemUnchecked self index@@ -170,6 +233,16 @@             (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m () appendItem_ self item   = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> +appendItemUnsafe ::+                 (MonadIO m, HasCallStack) =>+                   SVGPointList -> Maybe SVGPoint -> m SVGPoint+appendItemUnsafe self item+  = liftIO+      ((nullableToMaybe <$>+          (js_appendItem (self) (maybeToNullable item)))+         >>= maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation>  appendItemUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPolygonElement-       (js_getPoints, getPoints, getPointsUnchecked, js_getAnimatedPoints,-        getAnimatedPoints, getAnimatedPointsUnchecked, SVGPolygonElement,-        castToSVGPolygonElement, gTypeSVGPolygonElement)+       (js_getPoints, getPoints, getPointsUnsafe, getPointsUnchecked,+        js_getAnimatedPoints, getAnimatedPoints, getAnimatedPointsUnsafe,+        getAnimatedPointsUnchecked, SVGPolygonElement(..),+        gTypeSVGPolygonElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"points\"]" js_getPoints ::         SVGPolygonElement -> IO (Nullable SVGPointList)@@ -30,6 +47,14 @@ getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation> +getPointsUnsafe ::+                (MonadIO m, HasCallStack) => SVGPolygonElement -> m SVGPointList+getPointsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPoints (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation>  getPointsUnchecked ::                    (MonadIO m) => SVGPolygonElement -> m SVGPointList getPointsUnchecked self@@ -44,6 +69,14 @@                   (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) getAnimatedPoints self   = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation> +getAnimatedPointsUnsafe ::+                        (MonadIO m, HasCallStack) => SVGPolygonElement -> m SVGPointList+getAnimatedPointsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimatedPoints (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation>  getAnimatedPointsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs view
@@ -1,10 +1,17 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPolylineElement-       (js_getPoints, getPoints, getPointsUnchecked, js_getAnimatedPoints,-        getAnimatedPoints, getAnimatedPointsUnchecked, SVGPolylineElement,-        castToSVGPolylineElement, gTypeSVGPolylineElement)+       (js_getPoints, getPoints, getPointsUnsafe, getPointsUnchecked,+        js_getAnimatedPoints, getAnimatedPoints, getAnimatedPointsUnsafe,+        getAnimatedPointsUnchecked, SVGPolylineElement(..),+        gTypeSVGPolylineElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -20,6 +27,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"points\"]" js_getPoints ::         SVGPolylineElement -> IO (Nullable SVGPointList)@@ -30,6 +47,14 @@ getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation> +getPointsUnsafe ::+                (MonadIO m, HasCallStack) => SVGPolylineElement -> m SVGPointList+getPointsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getPoints (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation>  getPointsUnchecked ::                    (MonadIO m) => SVGPolylineElement -> m SVGPointList getPointsUnchecked self@@ -44,6 +69,14 @@                   (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) getAnimatedPoints self   = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation> +getAnimatedPointsUnsafe ::+                        (MonadIO m, HasCallStack) => SVGPolylineElement -> m SVGPointList+getAnimatedPointsUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getAnimatedPoints (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation>  getAnimatedPointsUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGPreserveAspectRatio        (pattern SVG_PRESERVEASPECTRATIO_UNKNOWN,         pattern SVG_PRESERVEASPECTRATIO_NONE,@@ -14,10 +19,11 @@         pattern SVG_MEETORSLICE_UNKNOWN, pattern SVG_MEETORSLICE_MEET,         pattern SVG_MEETORSLICE_SLICE, js_setAlign, setAlign, js_getAlign,         getAlign, js_setMeetOrSlice, setMeetOrSlice, js_getMeetOrSlice,-        getMeetOrSlice, SVGPreserveAspectRatio,-        castToSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio)+        getMeetOrSlice, SVGPreserveAspectRatio(..),+        gTypeSVGPreserveAspectRatio)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -33,6 +39,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0 pattern SVG_PRESERVEASPECTRATIO_NONE = 1 pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2
src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs view
@@ -1,12 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement-       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,-        js_getR, getR, getRUnchecked, js_getFx, getFx, getFxUnchecked,-        js_getFy, getFy, getFyUnchecked, js_getFr, getFr, getFrUnchecked,-        SVGRadialGradientElement, castToSVGRadialGradientElement,+       (js_getCx, getCx, getCxUnsafe, getCxUnchecked, js_getCy, getCy,+        getCyUnsafe, getCyUnchecked, js_getR, getR, getRUnsafe,+        getRUnchecked, js_getFx, getFx, getFxUnsafe, getFxUnchecked,+        js_getFy, getFy, getFyUnsafe, getFyUnchecked, js_getFr, getFr,+        getFrUnsafe, getFrUnchecked, SVGRadialGradientElement(..),         gTypeSVGRadialGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -33,6 +50,15 @@ getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation> +getCxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGRadialGradientElement -> m SVGAnimatedLength+getCxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation>  getCxUnchecked ::                (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength getCxUnchecked self@@ -48,6 +74,15 @@ getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation> +getCyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGRadialGradientElement -> m SVGAnimatedLength+getCyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation>  getCyUnchecked ::                (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength getCyUnchecked self@@ -63,6 +98,15 @@ getR self = liftIO (nullableToMaybe <$> (js_getR (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation> +getRUnsafe ::+           (MonadIO m, HasCallStack) =>+             SVGRadialGradientElement -> m SVGAnimatedLength+getRUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getR (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation>  getRUnchecked ::               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength getRUnchecked self@@ -78,6 +122,15 @@ getFx self = liftIO (nullableToMaybe <$> (js_getFx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation> +getFxUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGRadialGradientElement -> m SVGAnimatedLength+getFxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation>  getFxUnchecked ::                (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength getFxUnchecked self@@ -93,6 +146,15 @@ getFy self = liftIO (nullableToMaybe <$> (js_getFy (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation> +getFyUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGRadialGradientElement -> m SVGAnimatedLength+getFyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation>  getFyUnchecked ::                (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength getFyUnchecked self@@ -106,6 +168,15 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFr self = liftIO (nullableToMaybe <$> (js_getFr (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation> +getFrUnsafe ::+            (MonadIO m, HasCallStack) =>+              SVGRadialGradientElement -> m SVGAnimatedLength+getFrUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getFr (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation>  getFrUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs view
@@ -1,11 +1,16 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGRect        (js_setX, setX, js_getX, getX, js_setY, setY, js_getY, getY,         js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,-        setHeight, js_getHeight, getHeight, SVGRect, castToSVGRect,-        gTypeSVGRect)+        setHeight, js_getHeight, getHeight, SVGRect(..), gTypeSVGRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -21,6 +26,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::         SVGRect -> Float -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs view
@@ -1,12 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGRectElement-       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,-        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, js_getRx, getRx, getRxUnchecked, js_getRy,-        getRy, getRyUnchecked, SVGRectElement, castToSVGRectElement,+       (js_getX, getX, getXUnsafe, getXUnchecked, js_getY, getY,+        getYUnsafe, getYUnchecked, js_getWidth, getWidth, getWidthUnsafe,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnsafe,+        getHeightUnchecked, js_getRx, getRx, getRxUnsafe, getRxUnchecked,+        js_getRy, getRy, getRyUnsafe, getRyUnchecked, SVGRectElement(..),         gTypeSVGRectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -22,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -32,6 +49,14 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGRectElement -> m SVGAnimatedLength getXUnchecked self@@ -46,6 +71,14 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGRectElement -> m SVGAnimatedLength getYUnchecked self@@ -60,6 +93,14 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGRectElement -> m SVGAnimatedLength getWidthUnchecked self@@ -74,6 +115,14 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation>  getHeightUnchecked ::                    (MonadIO m) => SVGRectElement -> m SVGAnimatedLength getHeightUnchecked self@@ -88,6 +137,14 @@ getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation> +getRxUnsafe ::+            (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getRxUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRx (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation>  getRxUnchecked ::                (MonadIO m) => SVGRectElement -> m SVGAnimatedLength getRxUnchecked self@@ -100,6 +157,14 @@ getRy ::       (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation> +getRyUnsafe ::+            (MonadIO m, HasCallStack) => SVGRectElement -> m SVGAnimatedLength+getRyUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getRy (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation>  getRyUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs view
@@ -1,13 +1,19 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGRenderingIntent        (pattern RENDERING_INTENT_UNKNOWN, pattern RENDERING_INTENT_AUTO,         pattern RENDERING_INTENT_PERCEPTUAL,         pattern RENDERING_INTENT_RELATIVE_COLORIMETRIC,         pattern RENDERING_INTENT_SATURATION,-        pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC, SVGRenderingIntent,-        castToSVGRenderingIntent, gTypeSVGRenderingIntent)+        pattern RENDERING_INTENT_ABSOLUTE_COLORIMETRIC,+        SVGRenderingIntent(..), gTypeSVGRenderingIntent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -23,6 +29,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif pattern RENDERING_INTENT_UNKNOWN = 0 pattern RENDERING_INTENT_AUTO = 1 pattern RENDERING_INTENT_PERCEPTUAL = 2
src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs view
@@ -1,4 +1,9 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGSVGElement        (js_suspendRedraw, suspendRedraw, suspendRedraw_,         js_unsuspendRedraw, unsuspendRedraw, js_unsuspendRedrawAll,@@ -8,41 +13,49 @@         animationsPaused_, js_getCurrentTime, getCurrentTime,         getCurrentTime_, js_setCurrentTime, setCurrentTime,         js_getIntersectionList, getIntersectionList, getIntersectionList_,-        getIntersectionListUnchecked, js_getEnclosureList,-        getEnclosureList, getEnclosureList_, getEnclosureListUnchecked,+        getIntersectionListUnsafe, getIntersectionListUnchecked,+        js_getEnclosureList, getEnclosureList, getEnclosureList_,+        getEnclosureListUnsafe, getEnclosureListUnchecked,         js_checkIntersection, checkIntersection, checkIntersection_,         js_checkEnclosure, checkEnclosure, checkEnclosure_, js_deselectAll,         deselectAll, js_createSVGNumber, createSVGNumber, createSVGNumber_,-        createSVGNumberUnchecked, js_createSVGLength, createSVGLength,-        createSVGLength_, createSVGLengthUnchecked, js_createSVGAngle,-        createSVGAngle, createSVGAngle_, createSVGAngleUnchecked,-        js_createSVGPoint, createSVGPoint, createSVGPoint_,-        createSVGPointUnchecked, js_createSVGMatrix, createSVGMatrix,-        createSVGMatrix_, createSVGMatrixUnchecked, js_createSVGRect,-        createSVGRect, createSVGRect_, createSVGRectUnchecked,-        js_createSVGTransform, createSVGTransform, createSVGTransform_,+        createSVGNumberUnsafe, createSVGNumberUnchecked,+        js_createSVGLength, createSVGLength, createSVGLength_,+        createSVGLengthUnsafe, createSVGLengthUnchecked, js_createSVGAngle,+        createSVGAngle, createSVGAngle_, createSVGAngleUnsafe,+        createSVGAngleUnchecked, js_createSVGPoint, createSVGPoint,+        createSVGPoint_, createSVGPointUnsafe, createSVGPointUnchecked,+        js_createSVGMatrix, createSVGMatrix, createSVGMatrix_,+        createSVGMatrixUnsafe, createSVGMatrixUnchecked, js_createSVGRect,+        createSVGRect, createSVGRect_, createSVGRectUnsafe,+        createSVGRectUnchecked, js_createSVGTransform, createSVGTransform,+        createSVGTransform_, createSVGTransformUnsafe,         createSVGTransformUnchecked, js_createSVGTransformFromMatrix,         createSVGTransformFromMatrix, createSVGTransformFromMatrix_,+        createSVGTransformFromMatrixUnsafe,         createSVGTransformFromMatrixUnchecked, js_getElementById,-        getElementById, getElementById_, getElementByIdUnchecked, js_getX,-        getX, getXUnchecked, js_getY, getY, getYUnchecked, js_getWidth,-        getWidth, getWidthUnchecked, js_getHeight, getHeight,-        getHeightUnchecked, js_setContentScriptType, setContentScriptType,-        js_getContentScriptType, getContentScriptType,-        js_setContentStyleType, setContentStyleType,+        getElementById, getElementById_, getElementByIdUnsafe,+        getElementByIdUnchecked, js_getX, getX, getXUnsafe, getXUnchecked,+        js_getY, getY, getYUnsafe, getYUnchecked, js_getWidth, getWidth,+        getWidthUnsafe, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnsafe, getHeightUnchecked, js_setContentScriptType,+        setContentScriptType, js_getContentScriptType,+        getContentScriptType, js_setContentStyleType, setContentStyleType,         js_getContentStyleType, getContentStyleType, js_getViewport,-        getViewport, getViewportUnchecked, js_getPixelUnitToMillimeterX,-        getPixelUnitToMillimeterX, js_getPixelUnitToMillimeterY,-        getPixelUnitToMillimeterY, js_getScreenPixelToMillimeterX,-        getScreenPixelToMillimeterX, js_getScreenPixelToMillimeterY,-        getScreenPixelToMillimeterY, js_getUseCurrentView,-        getUseCurrentView, js_getCurrentView, getCurrentView,-        getCurrentViewUnchecked, js_setCurrentScale, setCurrentScale,-        js_getCurrentScale, getCurrentScale, js_getCurrentTranslate,-        getCurrentTranslate, getCurrentTranslateUnchecked, SVGSVGElement,-        castToSVGSVGElement, gTypeSVGSVGElement)+        getViewport, getViewportUnsafe, getViewportUnchecked,+        js_getPixelUnitToMillimeterX, getPixelUnitToMillimeterX,+        js_getPixelUnitToMillimeterY, getPixelUnitToMillimeterY,+        js_getScreenPixelToMillimeterX, getScreenPixelToMillimeterX,+        js_getScreenPixelToMillimeterY, getScreenPixelToMillimeterY,+        js_getUseCurrentView, getUseCurrentView, js_getCurrentView,+        getCurrentView, getCurrentViewUnsafe, getCurrentViewUnchecked,+        js_setCurrentScale, setCurrentScale, js_getCurrentScale,+        getCurrentScale, js_getCurrentTranslate, getCurrentTranslate,+        getCurrentTranslateUnsafe, getCurrentTranslateUnchecked,+        SVGSVGElement(..), gTypeSVGSVGElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -58,6 +71,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"suspendRedraw\"]($2)"         js_suspendRedraw :: SVGSVGElement -> Word -> IO Word@@ -166,6 +189,18 @@             (maybeToNullable (fmap toSVGElement referenceElement))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation> +getIntersectionListUnsafe ::+                          (MonadIO m, IsSVGElement referenceElement, HasCallStack) =>+                            SVGSVGElement ->+                              Maybe SVGRect -> Maybe referenceElement -> m NodeList+getIntersectionListUnsafe self rect referenceElement+  = liftIO+      ((nullableToMaybe <$>+          (js_getIntersectionList (self) (maybeToNullable rect)+             (maybeToNullable (fmap toSVGElement referenceElement))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation>  getIntersectionListUnchecked ::                              (MonadIO m, IsSVGElement referenceElement) =>                                SVGSVGElement ->@@ -203,6 +238,18 @@             (maybeToNullable (fmap toSVGElement referenceElement))))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation> +getEnclosureListUnsafe ::+                       (MonadIO m, IsSVGElement referenceElement, HasCallStack) =>+                         SVGSVGElement ->+                           Maybe SVGRect -> Maybe referenceElement -> m NodeList+getEnclosureListUnsafe self rect referenceElement+  = liftIO+      ((nullableToMaybe <$>+          (js_getEnclosureList (self) (maybeToNullable rect)+             (maybeToNullable (fmap toSVGElement referenceElement))))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation>  getEnclosureListUnchecked ::                           (MonadIO m, IsSVGElement referenceElement) =>                             SVGSVGElement ->@@ -285,6 +332,14 @@ createSVGNumber_ self = liftIO (void (js_createSVGNumber (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation> +createSVGNumberUnsafe ::+                      (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGNumber+createSVGNumberUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGNumber (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation>  createSVGNumberUnchecked ::                          (MonadIO m) => SVGSVGElement -> m SVGNumber createSVGNumberUnchecked self@@ -305,6 +360,14 @@ createSVGLength_ self = liftIO (void (js_createSVGLength (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation> +createSVGLengthUnsafe ::+                      (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGLength+createSVGLengthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGLength (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation>  createSVGLengthUnchecked ::                          (MonadIO m) => SVGSVGElement -> m SVGLength createSVGLengthUnchecked self@@ -325,6 +388,14 @@ createSVGAngle_ self = liftIO (void (js_createSVGAngle (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation> +createSVGAngleUnsafe ::+                     (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGAngle+createSVGAngleUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGAngle (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation>  createSVGAngleUnchecked ::                         (MonadIO m) => SVGSVGElement -> m SVGAngle createSVGAngleUnchecked self@@ -345,6 +416,14 @@ createSVGPoint_ self = liftIO (void (js_createSVGPoint (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation> +createSVGPointUnsafe ::+                     (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGPoint+createSVGPointUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGPoint (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation>  createSVGPointUnchecked ::                         (MonadIO m) => SVGSVGElement -> m SVGPoint createSVGPointUnchecked self@@ -365,6 +444,14 @@ createSVGMatrix_ self = liftIO (void (js_createSVGMatrix (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation> +createSVGMatrixUnsafe ::+                      (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGMatrix+createSVGMatrixUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGMatrix (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation>  createSVGMatrixUnchecked ::                          (MonadIO m) => SVGSVGElement -> m SVGMatrix createSVGMatrixUnchecked self@@ -384,6 +471,14 @@ createSVGRect_ self = liftIO (void (js_createSVGRect (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation> +createSVGRectUnsafe ::+                    (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGRect+createSVGRectUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGRect (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation>  createSVGRectUnchecked :: (MonadIO m) => SVGSVGElement -> m SVGRect createSVGRectUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_createSVGRect (self)))@@ -404,6 +499,14 @@   = liftIO (void (js_createSVGTransform (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation> +createSVGTransformUnsafe ::+                         (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGTransform+createSVGTransformUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_createSVGTransform (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation>  createSVGTransformUnchecked ::                             (MonadIO m) => SVGSVGElement -> m SVGTransform createSVGTransformUnchecked self@@ -433,6 +536,16 @@          (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation> +createSVGTransformFromMatrixUnsafe ::+                                   (MonadIO m, HasCallStack) =>+                                     SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform+createSVGTransformFromMatrixUnsafe self matrix+  = liftIO+      ((nullableToMaybe <$>+          (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation>  createSVGTransformFromMatrixUnchecked ::                                       (MonadIO m) =>                                         SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform@@ -462,6 +575,16 @@   = liftIO (void (js_getElementById (self) (toJSString elementId)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation> +getElementByIdUnsafe ::+                     (MonadIO m, ToJSString elementId, HasCallStack) =>+                       SVGSVGElement -> elementId -> m Element+getElementByIdUnsafe self elementId+  = liftIO+      ((nullableToMaybe <$>+          (js_getElementById (self) (toJSString elementId)))+         >>= maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation>  getElementByIdUnchecked ::                         (MonadIO m, ToJSString elementId) =>                           SVGSVGElement -> elementId -> m Element@@ -478,6 +601,14 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation> +getXUnsafe ::+           (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength+getXUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getX (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation>  getXUnchecked ::               (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength getXUnchecked self@@ -491,6 +622,14 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation> +getYUnsafe ::+           (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength+getYUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getY (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation>  getYUnchecked ::               (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength getYUnchecked self@@ -505,6 +644,14 @@ getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.width Mozilla SVGSVGElement.width documentation> +getWidthUnsafe ::+               (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength+getWidthUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getWidth (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.width Mozilla SVGSVGElement.width documentation>  getWidthUnchecked ::                   (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength getWidthUnchecked self@@ -519,6 +666,14 @@ getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.height Mozilla SVGSVGElement.height documentation> +getHeightUnsafe ::+                (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength+getHeightUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getHeight (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.height Mozilla SVGSVGElement.height documentation>  getHeightUnchecked ::                    (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength getHeightUnchecked self@@ -569,6 +724,14 @@   = liftIO (nullableToMaybe <$> (js_getViewport (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.viewport Mozilla SVGSVGElement.viewport documentation> +getViewportUnsafe ::+                  (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGRect+getViewportUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getViewport (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.viewport Mozilla SVGSVGElement.viewport documentation>  getViewportUnchecked :: (MonadIO m) => SVGSVGElement -> m SVGRect getViewportUnchecked self   = liftIO (fromJust . nullableToMaybe <$> (js_getViewport (self)))@@ -626,6 +789,14 @@   = liftIO (nullableToMaybe <$> (js_getCurrentView (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentView Mozilla SVGSVGElement.currentView documentation> +getCurrentViewUnsafe ::+                     (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGViewSpec+getCurrentViewUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCurrentView (self))) >>=+         maybe (Prelude.error "Nothing to return") return)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentView Mozilla SVGSVGElement.currentView documentation>  getCurrentViewUnchecked ::                         (MonadIO m) => SVGSVGElement -> m SVGViewSpec getCurrentViewUnchecked self@@ -654,6 +825,14 @@                     (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) getCurrentTranslate self   = liftIO (nullableToMaybe <$> (js_getCurrentTranslate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentTranslate Mozilla SVGSVGElement.currentTranslate documentation> +getCurrentTranslateUnsafe ::+                          (MonadIO m, HasCallStack) => SVGSVGElement -> m SVGPoint+getCurrentTranslateUnsafe self+  = liftIO+      ((nullableToMaybe <$> (js_getCurrentTranslate (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentTranslate Mozilla SVGSVGElement.currentTranslate documentation>  getCurrentTranslateUnchecked ::
src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs view
@@ -1,9 +1,15 @@-{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-}+{-# LANGUAGE CPP #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE JavaScriptFFI #-}+-- For HasCallStack compatibility+{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SVGScriptElement-       (js_setType, setType, js_getType, getType, getTypeUnchecked,-        SVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement)+       (js_setType, setType, js_getType, getType, getTypeUnsafe,+        getTypeUnchecked, SVGScriptElement(..), gTypeSVGScriptElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull)@@ -19,6 +25,16 @@ import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums+#if MIN_VERSION_base(4,9,0)+import GHC.Stack (HasCallStack)+#elif MIN_VERSION_base(4,8,0)+import GHC.Stack (CallStack)+import GHC.Exts (Constraint)+type HasCallStack = ((?callStack :: CallStack) :: Constraint)+#else+import GHC.Exts (Constraint)+type HasCallStack = (() :: Constraint)+#endif   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::         SVGScriptElement -> Nullable JSString -> IO ()@@ -37,6 +53,15 @@         (MonadIO m, FromJSString result) =>           SVGScriptElement -> m (Maybe result) getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> +getTypeUnsafe ::+              (MonadIO m, HasCallStack, FromJSString result) =>+                SVGScriptElement -> m result+getTypeUnsafe self+  = liftIO+      ((fromMaybeJSString <$> (js_getType (self))) >>=+         maybe (Prelude.error "Nothing to return") return)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation>  getTypeUnchecked ::
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/Types.hs view

file too large to diff